Mercurial > emacs

diff lisp/gnus/message.el @ 68230:6c7c654eb3c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-702 Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 185-186) - Merge from emacs--cvs-trunk--0 - Update from CVS 2006-01-16 Katsumi Yamaoka <yamaoka@jpl.org> * lisp/gnus/nnrss.el: Update copyright. (nnrss-opml-import): Query whether to subscribe to each entry. * lisp/gnus/gnus-art.el: * lisp/gnus/gnus-cus.el: * lisp/gnus/gnus-group.el: * lisp/gnus/gnus-start.el: * lisp/gnus/gnus-sum.el: * lisp/gnus/mm-uu.el: * lisp/gnus/mm-view.el: Update copyright. 2006-01-16 Reiner Steib <Reiner.Steib@gmx.de> * lisp/gnus/message.el (message-info): New function. (message-mode-menu): Add it. Update copyright. * lisp/gnus/ChangeLog: Fix and update copyright. 2006-01-16 Katsumi Yamaoka <yamaoka@jpl.org> * man/gnus.texi: Update copyright.
author Miles Bader <miles@gnu.org>
date Tue, 17 Jan 2006 02:39:39 +0000
parents ebf472d3ae22
children 04c2548593f7 d88caeac70d7
line wrap: on
line diff
--- a/lisp/gnus/message.el	Tue Jan 17 02:11:40 2006 +0000
+++ b/lisp/gnus/message.el	Tue Jan 17 02:39:39 2006 +0000
@@ -1,7 +1,7 @@
 ;;; message.el --- composing mail and news messages
 
 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
-;;   2005 Free Software Foundation, Inc.
+;;   2005, 2006 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; Keywords: mail, news
@@ -2185,6 +2185,15 @@
 	     (1+ max)))))
       (message-sort-headers-1))))
 
+(defun message-info (&optional arg)
+  "Display the Message manual.
+
+Prefixed with one \\[universal-argument], display the Emacs MIME manual.
+Prefixed with two \\[universal-argument]'s, display the PGG manual."
+  (interactive "p")
+  (cond ((eq arg 16) (Info-goto-node "(pgg)Top"))
+	((eq arg  4) (Info-goto-node "(emacs-mime)Top"))
+	(t           (Info-goto-node "(message)Top"))))
 
 
 
@@ -2312,7 +2321,11 @@
 	 '(:help "Ask, then arrange to send message at that time"))]
     ["Kill Message" message-kill-buffer
      ,@(if (featurep 'xemacs) '(t)
-	 '(:help "Delete this message without sending"))]))
+	 '(:help "Delete this message without sending"))]
+    "----"
+    ["Message manual" message-info
+     ,@(if (featurep 'xemacs) '(t)
+	 '(:help "Display the Message manual"))]))
 
 (easy-menu-define
   message-mode-field-menu message-mode-map ""