andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(mml2015-use): Declare for compiler.

Browse source 
(message-info): Require mml2015 when appropriate.
This commit is contained in:
Glenn Morris 2008-03-31 07:18:59 +00:00
parent f6c762dde1
commit a0e0846723
2 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View file

@ -1,3 +1,8 @@
2008-03-31 Glenn Morris <rgm@gnu.org>
* message.el (mml2015-use): Declare for compiler.
(message-info): Require mml2015 when appropriate.
2008-03-30 Stefan Monnier <monnier@iro.umontreal.ca>
* nntp.el (nntp-netcat-command): Rename from nntp-via-netcat-command.

6
lisp/gnus/message.el
View file

@ -2489,6 +2489,7 @@ Point is left at the beginning of the narrowed-to region."
(autoload 'Info-goto-node "info")
(defvar mml2015-use)
(defun message-info (&optional arg)
"Display the Message manual.
@ -2497,8 +2498,11 @@ Prefixed with one \\[universal-argument], display the Emacs MIME
manual. With two \\[universal-argument]'s, display the EasyPG or
PGG manual, depending on the value of `mml2015-use'."
(interactive "p")
;; Why not `info', which is in loaddefs.el?
(Info-goto-node (format "(%s)Top"
(cond ((eq arg 16) mml2015-use)
(cond ((eq arg 16)
(require 'mml2015)
mml2015-use)
((eq arg 4) 'emacs-mime)
;; `booleanp' only available in Emacs 22+
((and (not (memq arg '(nil t)))