[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r112653: Silence rmail.el compilation
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r112653: Silence rmail.el compilation |
Date: |
Tue, 21 May 2013 08:43:06 -0700 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 112653
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2013-05-21 08:43:06 -0700
message:
Silence rmail.el compilation
* lisp/mail/rmail.el (speedbar): No need to load when compiling.
(speedbar-make-specialized-keymap, speedbar-with-attached-buffer)
(speedbar-do-function-pointer): Declare.
modified:
lisp/ChangeLog
lisp/mail/rmail.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2013-05-21 09:43:14 +0000
+++ b/lisp/ChangeLog 2013-05-21 15:43:06 +0000
@@ -1,3 +1,9 @@
+2013-05-21 Glenn Morris <address@hidden>
+
+ * mail/rmail.el (speedbar): No need to load when compiling.
+ (speedbar-make-specialized-keymap, speedbar-with-attached-buffer)
+ (speedbar-do-function-pointer): Declare.
+
2013-05-21 Leo Liu <address@hidden>
* progmodes/octave.el (octave-auto-fill): Remove.
=== modified file 'lisp/mail/rmail.el'
--- a/lisp/mail/rmail.el 2013-05-21 07:25:14 +0000
+++ b/lisp/mail/rmail.el 2013-05-21 15:43:06 +0000
@@ -4310,7 +4310,6 @@
(restore-buffer-modified-p nil)))))))
;;; Speedbar support for RMAIL files.
-(eval-when-compile (require 'speedbar))
(defcustom rmail-speedbar-match-folder-regexp "^[A-Z0-9]+\\(\\.[A-Z0-9]+\\)?$"
"Regexp matching Rmail folder names to be displayed in Speedbar.
@@ -4326,12 +4325,12 @@
(defvar rmail-speedbar-key-map nil
"Keymap used when in rmail display mode.")
+(declare-function speedbar-make-specialized-keymap "speedbar" ())
+
(defun rmail-install-speedbar-variables ()
"Install those variables used by speedbar to enhance rmail."
- (if rmail-speedbar-key-map
- nil
+ (unless rmail-speedbar-key-map
(setq rmail-speedbar-key-map (speedbar-make-specialized-keymap))
-
(define-key rmail-speedbar-key-map "e" 'speedbar-edit-line)
(define-key rmail-speedbar-key-map "r" 'speedbar-edit-line)
(define-key rmail-speedbar-key-map "\C-m" 'speedbar-edit-line)
@@ -4346,11 +4345,15 @@
(looking-at "<M> "))])
"Additional menu-items to add to speedbar frame.")
+(declare-function speedbar-insert-button "speedbar"
+ (text face mouse function &optional token prevline))
+
;; Make sure our special speedbar major mode is loaded
(if (featurep 'speedbar)
(rmail-install-speedbar-variables)
(add-hook 'speedbar-load-hook 'rmail-install-speedbar-variables))
+;; Called from speedbar-add-localized-speedbar-support.
(defun rmail-speedbar-buttons (buffer)
"Create buttons for BUFFER containing rmail messages.
Click on the address under Reply to: to reply to this person.
@@ -4387,6 +4390,8 @@
(speedbar-insert-button file 'speedbar-file-face 'highlight
'rmail-speedbar-find-file nil t)))))))
+(declare-function speedbar-with-attached-buffer "speedbar" (&rest forms) t)
+
(defun rmail-speedbar-button (text token indent)
"Execute an rmail command specified by TEXT.
The command used is TOKEN. INDENT is not used."
@@ -4400,6 +4405,8 @@
(message "Loading in RMAIL file %s..." text)
(rmail text)))
+(declare-function speedbar-do-function-pointer "speedbar" ())
+
(defun rmail-speedbar-move-message-to-folder-on-line ()
"If the current line is a folder, move current message to it."
(interactive)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r112653: Silence rmail.el compilation,
Glenn Morris <=