Mercurial > emacs

comparison lisp/gnus/message.el @ 90268:d88caeac70d7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-2 Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (base, patch 1-3) - tag of miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-704 - Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0 (patch 700-704) - Update from CVS - Merge from gnus--rel--5.10 - Update from CVS: lisp/cus-edit.el (customize-rogue): Minor doc fix. * miles@gnu.org--gnu-2005/gnus--rel--5.10 (patch 185-186) - Merge from emacs--cvs-trunk--0 - Update from CVS
author Miles Bader <miles@gnu.org>
date Thu, 19 Jan 2006 07:11:42 +0000
parents 7beb78bc1f8e 6c7c654eb3c7
children 7432ca837c8d
comparison
equal deleted inserted replaced
90267:e5855ea89245 90268:d88caeac70d7
1 ;;; message.el --- composing mail and news messages 1 ;;; message.el --- composing mail and news messages
2 2
3 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 3 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
4 ;; 2005 Free Software Foundation, Inc. 4 ;; 2005, 2006 Free Software Foundation, Inc.
5 5
6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
7 ;; Keywords: mail, news 7 ;; Keywords: mail, news
8 8
9 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
2183 message-header-format-alist))) 2183 message-header-format-alist)))
2184 (- max rank) 2184 (- max rank)
2185 (1+ max))))) 2185 (1+ max)))))
2186 (message-sort-headers-1)))) 2186 (message-sort-headers-1))))
2187 2187
2188 (defun message-info (&optional arg)
2189 "Display the Message manual.
2190
2191 Prefixed with one \\[universal-argument], display the Emacs MIME manual.
2192 Prefixed with two \\[universal-argument]'s, display the PGG manual."
2193 (interactive "p")
2194 (cond ((eq arg 16) (Info-goto-node "(pgg)Top"))
2195 ((eq arg 4) (Info-goto-node "(emacs-mime)Top"))
2196 (t (Info-goto-node "(message)Top"))))
2188 2197
2189 2198
2190 2199
2191 ;;; 2200 ;;;
2192 ;;; Message mode 2201 ;;; Message mode
2310 ["Send at Specific Time..." gnus-delay-article 2319 ["Send at Specific Time..." gnus-delay-article
2311 ,@(if (featurep 'xemacs) '(t) 2320 ,@(if (featurep 'xemacs) '(t)
2312 '(:help "Ask, then arrange to send message at that time"))] 2321 '(:help "Ask, then arrange to send message at that time"))]
2313 ["Kill Message" message-kill-buffer 2322 ["Kill Message" message-kill-buffer
2314 ,@(if (featurep 'xemacs) '(t) 2323 ,@(if (featurep 'xemacs) '(t)
2315 '(:help "Delete this message without sending"))])) 2324 '(:help "Delete this message without sending"))]
2325 "----"
2326 ["Message manual" message-info
2327 ,@(if (featurep 'xemacs) '(t)
2328 '(:help "Display the Message manual"))]))
2316 2329
2317 (easy-menu-define 2330 (easy-menu-define
2318 message-mode-field-menu message-mode-map "" 2331 message-mode-field-menu message-mode-map ""
2319 `("Field" 2332 `("Field"
2320 ["To" message-goto-to t] 2333 ["To" message-goto-to t]