/[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.49 by zsh, Tue Apr 2 20:24:32 2002 UTC revision 1.49.2.1 by miles, Fri Apr 4 06:20:21 2003 UTC
# Line 879  Defaults to `text-mode-abbrev-table'.") Line 879  Defaults to `text-mode-abbrev-table'.")
879                   (unbold-region b e)                   (unbold-region b e)
880                   (ununderline-region b e))))                   (ununderline-region b e))))
881    "Alist of mail and news faces for facemenu.    "Alist of mail and news faces for facemenu.
882  The cdr of ech entry is a function for applying the face to a region.")  The cdr of each entry is a function for applying the face to a region.")
883    
884  (defcustom message-send-hook nil  (defcustom message-send-hook nil
885    "Hook run before sending messages."    "Hook run before sending messages."
# Line 1414  Point is left at the beginning of the na Line 1414  Point is left at the beginning of the na
1414    (define-key message-mode-map "\C-c\C-v" 'message-delete-not-region)    (define-key message-mode-map "\C-c\C-v" 'message-delete-not-region)
1415    (define-key message-mode-map "\C-c\C-z" 'message-kill-to-signature)    (define-key message-mode-map "\C-c\C-z" 'message-kill-to-signature)
1416    (define-key message-mode-map "\M-\r" 'message-newline-and-reformat)    (define-key message-mode-map "\M-\r" 'message-newline-and-reformat)
1417      (define-key message-mode-map [remap split-line]  'message-split-line)
1418    
1419    (define-key message-mode-map "\C-c\C-a" 'mml-attach-file)    (define-key message-mode-map "\C-c\C-a" 'mml-attach-file)
1420    
# Line 1778  With the prefix argument FORCE, insert t Line 1779  With the prefix argument FORCE, insert t
1779      (goto-char point)      (goto-char point)
1780      (forward-line 1)))      (forward-line 1)))
1781    
1782    (defun message-split-line ()
1783      "Split current line, moving portion beyond point vertically down.
1784    If the current line has `message-yank-prefix', insert it on the new line."
1785      (interactive "*")
1786      (split-line message-yank-prefix))
1787    
1788  (defun message-insert-signature (&optional force)  (defun message-insert-signature (&optional force)
1789    "Insert a signature.  See documentation for variable `message-signature'."    "Insert a signature.  See documentation for variable `message-signature'."
1790    (interactive (list 0))    (interactive (list 0))
# Line 3628  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 3699  than 988 characters long, and if they ar Line 3706  than 988 characters long, and if they ar
3706    (when message-auto-save-directory    (when message-auto-save-directory
3707      (unless (file-directory-p      (unless (file-directory-p
3708               (directory-file-name message-auto-save-directory))               (directory-file-name message-auto-save-directory))
3709        (gnus-make-directory message-auto-save-directory))        (make-directory message-auto-save-directory t))
3710      (if (gnus-alive-p)      (if (gnus-alive-p)
3711          (setq message-draft-article          (setq message-draft-article
3712                (nndraft-request-associate-buffer "drafts"))                (nndraft-request-associate-buffer "drafts"))
# Line 4157  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 4243  Optional DIGEST will use digest to forwa Line 4250  Optional DIGEST will use digest to forwa
4250                 (not message-forward-decoded-p))                 (not message-forward-decoded-p))
4251            (insert            (insert
4252             (with-temp-buffer             (with-temp-buffer
4253               (mm-disable-multibyte-mule4) ;; Must copy buffer in unibyte mode               (mm-disable-multibyte) ;; Must copy buffer in unibyte mode
4254                 (insert                 (insert
4255                  (with-current-buffer forward-buffer                  (with-current-buffer forward-buffer
4256                    (mm-string-as-unibyte (buffer-string))))                    (mm-string-as-unibyte (buffer-string))))
4257                 (mm-enable-multibyte-mule4)                 (mm-enable-multibyte)
4258                 (mime-to-mml)                 (mime-to-mml)
4259                 (goto-char (point-min))                 (goto-char (point-min))
4260                 (when (looking-at "From ")                 (when (looking-at "From ")
# Line 4298  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 4491  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 4501  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.49  
changed lines
  Added in v.1.49.2.1

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