/[emacs]/emacs/lisp/gnus/message.el
ViewVC logotype

Diff of /emacs/lisp/gnus/message.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.53 by kfstorm, Fri Jan 3 22:48:19 2003 UTC revision 1.54 by lektu, Tue Feb 4 13:06:38 2003 UTC
# Line 3635  than 988 characters long, and if they ar Line 3635  than 988 characters long, and if they ar
3635                                   (cdr item)))                                   (cdr item)))
3636                                headers)                                headers)
3637                        nil switch-function yank-action actions)))))                        nil switch-function yank-action actions)))))
3638    
3639  (eval-when-compile (defvar mc-modes-alist))  (eval-when-compile (defvar mc-modes-alist))
3640  (defun message-setup-1 (headers &optional replybuffer actions)  (defun message-setup-1 (headers &optional replybuffer actions)
3641    (when (and (boundp 'mc-modes-alist)    (when (and (boundp 'mc-modes-alist)
# Line 4164  The form is: [Source] Subject, where if Line 4164  The form is: [Source] Subject, where if
4164  Source is the sender, and if the original message was news, Source is  Source is the sender, and if the original message was news, Source is
4165  the list of newsgroups is was posted to."  the list of newsgroups is was posted to."
4166    (concat "["    (concat "["
4167             (let ((prefix             (let ((prefix
4168                    (or (message-fetch-field "newsgroups")                    (or (message-fetch-field "newsgroups")
4169                        (message-fetch-field "from")                        (message-fetch-field "from")
4170                        "(nowhere)")))                        "(nowhere)")))
# Line 4305  Optional DIGEST will use digest to forwa Line 4305  Optional DIGEST will use digest to forwa
4305    "Let RMAIL uses message to forward."    "Let RMAIL uses message to forward."
4306    (interactive)    (interactive)
4307    (setq rmail-enable-mime-composing t)    (setq rmail-enable-mime-composing t)
4308    (setq rmail-insert-mime-forwarded-message-function    (setq rmail-insert-mime-forwarded-message-function
4309          'message-forward-rmail-make-body))          'message-forward-rmail-make-body))
4310    
4311  ;;;###autoload  ;;;###autoload
# Line 4498  which specify the range to operate on." Line 4498  which specify the range to operate on."
4498  (eval-when-compile (defvar tool-bar-map))  (eval-when-compile (defvar tool-bar-map))
4499  (if (featurep 'xemacs)  (if (featurep 'xemacs)
4500      (require 'messagexmas)      (require 'messagexmas)
4501    (when (and    (when (and
4502           (condition-case nil (require 'tool-bar) (error nil))           (condition-case nil (require 'tool-bar) (error nil))
4503           (fboundp 'tool-bar-add-item-from-menu)           (fboundp 'tool-bar-add-item-from-menu)
4504           tool-bar-mode)           tool-bar-mode)
# Line 4508  which specify the range to operate on." Line 4508  which specify the range to operate on."
4508          (dolist (key '(print-buffer kill-buffer save-buffer write-file          (dolist (key '(print-buffer kill-buffer save-buffer write-file
4509                                      dired open-file))                                      dired open-file))
4510            (define-key tool-bar-map (vector key) nil))            (define-key tool-bar-map (vector key) nil))
4511    
4512          (tool-bar-add-item-from-menu          (tool-bar-add-item-from-menu
4513           'message-send-and-exit "mail_send" message-mode-map)           'message-send-and-exit "mail_send" message-mode-map)
4514          (tool-bar-add-item-from-menu          (tool-bar-add-item-from-menu

Legend:
Removed from v.1.53  
changed lines
  Added in v.1.54

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26