procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(rmail-msg-restore-non-pruned-header): Remove unneeded autoload of

Browse source 
function that no longer exists.
(rmail-toggle-header): Declare.
(message-forward-rmail-make-body): Handle mbox Rmail.
This commit is contained in:
Glenn Morris 2009-02-07 22:41:04 +00:00
parent 035426050b
commit c07dfdd98c
2 changed files with 13 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/gnus/ChangeLog
View file

@ -1,3 +1,10 @@
2009-02-07 Glenn Morris <rgm@gnu.org>
* message.el (rmail-msg-restore-non-pruned-header): Remove unneeded
autoload of function that no longer exists.
(rmail-toggle-header): Declare.
(message-forward-rmail-make-body): Handle mbox Rmail.
2009-01-31 Glenn Morris <rgm@gnu.org>
* gnus-sum.el (gnus-summary-next-article): XEmacs-friendly version of

8
lisp/gnus/message.el
View file

@ -1824,7 +1824,6 @@ You must have the \"hashcash\" binary installed, see `hashcash-path'."
(autoload 'nnvirtual-find-group-art "nnvirtual")
(autoload 'rmail-dont-reply-to "mail-utils")
(autoload 'rmail-msg-is-pruned "rmail")
(autoload 'rmail-msg-restore-non-pruned-header "rmail")
(autoload 'rmail-output "rmailout")
@ -5222,6 +5221,7 @@ Otherwise, generate and save a value for `canlock-password' first."
(if (and message-fcc-handler-function
(not (eq message-fcc-handler-function 'rmail-output)))
(funcall message-fcc-handler-function file)
;; FIXME broken in Emacs CVS? Does it work in 22?
(if (and (file-readable-p file) (mail-file-babyl-p file))
(rmail-output file 1 nil t)
(let ((mail-use-rfc822 t))
@ -7232,12 +7232,16 @@ is for the internal use."
(message-forward-make-body-plain forward-buffer)))
(message-position-point))
(declare-function rmail-toggle-header "rmail" (&optional arg))
;;;###autoload
(defun message-forward-rmail-make-body (forward-buffer)
(save-window-excursion
(set-buffer forward-buffer)
(if (rmail-msg-is-pruned)
(rmail-msg-restore-non-pruned-header)))
(if (fboundp 'rmail-msg-restore-non-pruned-header)
(rmail-msg-restore-non-pruned-header) ; Emacs 22
(rmail-toggle-header 0)))) ; Emacs 23
(message-forward-make-body forward-buffer))
;; Fixme: Should have defcustom.