Mercurial > hg > xemacs-beta

comparison lisp/gnus/message.el @ 18:d95e72db5c07 r19-15b92

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b92
author cvs
date Mon, 13 Aug 2007 08:49:43 +0200
parents 0293115a14e9
children 8fc7fe29b841
comparison
equal deleted inserted replaced
17:4579af9d8826 18:d95e72db5c07
110 110
111 ;;;###autoload 111 ;;;###autoload
112 (defcustom message-fcc-handler-function 'message-output 112 (defcustom message-fcc-handler-function 'message-output
113 "*A function called to save outgoing articles. 113 "*A function called to save outgoing articles.
114 This function will be called with the name of the file to store the 114 This function will be called with the name of the file to store the
115 article in. The default function is `rmail-output' which saves in Unix 115 article in. The default function is `message-output' which saves in Unix
116 mailbox format." 116 mailbox format."
117 :type '(radio (function-item rmail-output) 117 :type '(radio (function-item message-output)
118 (function :tag "Other")) 118 (function :tag "Other"))
119 :group 'message-sending) 119 :group 'message-sending)
120 120
121 (defcustom message-courtesy-message 121 (defcustom message-courtesy-message
122 "The following message is a courtesy copy of an article\nthat has been posted to %s as well.\n\n" 122 "The following message is a courtesy copy of an article\nthat has been posted to %s as well.\n\n"
1096 ;;(when (fboundp 'mail-hist-define-keys) 1096 ;;(when (fboundp 'mail-hist-define-keys)
1097 ;; (mail-hist-define-keys)) 1097 ;; (mail-hist-define-keys))
1098 (when (string-match "XEmacs\\|Lucid" emacs-version) 1098 (when (string-match "XEmacs\\|Lucid" emacs-version)
1099 (message-setup-toolbar)) 1099 (message-setup-toolbar))
1100 (easy-menu-add message-mode-menu message-mode-map) 1100 (easy-menu-add message-mode-menu message-mode-map)
1101 (easy-menu-add message-mode-field-menu message-mode-map)
1101 ;; Allow mail alias things. 1102 ;; Allow mail alias things.
1102 (if (fboundp 'mail-abbrevs-setup) 1103 (if (fboundp 'mail-abbrevs-setup)
1103 (mail-abbrevs-setup) 1104 (mail-abbrevs-setup)
1104 (funcall (intern "mail-aliases-setup"))) 1105 (funcall (intern "mail-aliases-setup")))
1105 (run-hooks 'text-mode-hook 'message-mode-hook)) 1106 (run-hooks 'text-mode-hook 'message-mode-hook))
2139 (match-string 1 file)) 2140 (match-string 1 file))
2140 ;; Save the article. 2141 ;; Save the article.
2141 (setq file (expand-file-name file)) 2142 (setq file (expand-file-name file))
2142 (unless (file-exists-p (file-name-directory file)) 2143 (unless (file-exists-p (file-name-directory file))
2143 (make-directory (file-name-directory file) t)) 2144 (make-directory (file-name-directory file) t))
2144 (funcall message-fcc-handler-function file))) 2145 (if (and message-fcc-handler-function
2146 (not (eq message-fcc-handler-function 'rmail-output)))
2147 (funcall message-fcc-handler-function file)
2148 (if (and (file-readable-p file) (mail-file-babyl-p file))
2149 (rmail-output file 1 nil t)
2150 (let ((mail-use-rfc822 t))
2151 (rmail-output file 1 t t))))))
2145 2152
2146 (kill-buffer (current-buffer))))) 2153 (kill-buffer (current-buffer)))))
2147 2154
2148 (defun message-output (filename) 2155 (defun message-output (filename)
2149 "Append this article to Unix/babyl mail file.." 2156 "Append this article to Unix/babyl mail file.."