mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

(rmail-buffer): Remove unneeded eval-when-compile.

Browse Source 
(rmail-narrow-to-non-pruned-header): Remove autoload.
(mairix-rmail-fetch-field): Handle mbox Rmail.
This commit is contained in:
Glenn Morris 2009-02-05 06:36:14 +00:00
parent c87626662d
commit c261086e81
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/net/mairix.el
View File

@ -228,8 +228,7 @@ Currently there are 'threads and 'flags.")
(autoload 'rmail "rmail")
(autoload 'rmail-summary-displayed "rmail")
(autoload 'rmail-summary "rmailsum")
(eval-when-compile
(defvar rmail-buffer))
(defvar rmail-buffer)
(defun mairix-rmail-display (folder)
"Display mbox file FOLDER with RMail."
@ -253,17 +252,20 @@ Currently there are 'threads and 'flags.")
(rmail-summary))))
;; Fetching mail header field:
(autoload 'rmail-narrow-to-non-pruned-header "rmail")
(defun mairix-rmail-fetch-field (field)
"Get mail header FIELD for current message using RMail."
(unless (and (boundp 'rmail-buffer)
rmail-buffer)
(error "No RMail buffer available"))
(save-excursion
(set-buffer rmail-buffer)
(save-restriction
(rmail-narrow-to-non-pruned-header)
(mail-fetch-field field))))
;; At this point, we are in rmail mode, so the rmail funcs are loaded.
(if (fboundp 'rmail-get-header) ; Emacs 23
(rmail-get-header field)
(save-excursion
(set-buffer rmail-buffer)
(save-restriction
;; Don't warn about this when compiling Emacs 23.
(with-no-warnings (rmail-narrow-to-non-pruned-header))
(mail-fetch-field field)))))
;;; Gnus
(eval-when-compile