Mercurial > emacs
comparison lisp/mail/rmail.el @ 41511:19496cafe865
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
* mail/rmail.el (rmail-enable-mime-composing): New. A lightweight
version of rmail-enable-mime.
(rmail-forward): Use it.
* message.el (message-forward-rmail-make-body):
save-window-excursion.
(message-encode-message-body): no error.
(message-setup-1): compose-mail send-actions are different from
message-send-actions.
* message.el (message-forward-subject-author-subject): Don't use
message-news-p, which widens the buffer.
(message-forward-make-body): New function.
(message-forward): Use it.
(message-insinuate-rmail): New.
(message-forward-rmail-make-body): New.
author | ShengHuo ZHU <zsh@cs.rochester.edu> |
---|---|
date | Sun, 25 Nov 2001 20:45:37 +0000 |
parents | 2b67bb3275f8 |
children | 3ae5a751a34a |
comparison
equal
deleted
inserted
replaced
41510:69925dd4cdc7 | 41511:19496cafe865 |
---|---|
418 :type '(choice (const :tag "on" t) | 418 :type '(choice (const :tag "on" t) |
419 (const :tag "off" nil) | 419 (const :tag "off" nil) |
420 (other :tag "when asked" ask)) | 420 (other :tag "when asked" ask)) |
421 :group 'rmail) | 421 :group 'rmail) |
422 | 422 |
423 (defvar rmail-enable-mime-composing nil | |
424 "*If non-nil, RMAIL uses `rmail-insert-mime-forwarded-message-function' to forward.") | |
425 | |
423 ;;;###autoload | 426 ;;;###autoload |
424 (defvar rmail-show-mime-function nil | 427 (defvar rmail-show-mime-function nil |
425 "Function to show MIME decoded message of RMAIL file. | 428 "Function to show MIME decoded message of RMAIL file. |
426 This function is called when `rmail-enable-mime' is non-nil. | 429 This function is called when `rmail-enable-mime' is non-nil. |
427 It is called with no argument.") | 430 It is called with no argument.") |
428 | 431 |
429 ;;;###autoload | 432 ;;;###autoload |
430 (defvar rmail-insert-mime-forwarded-message-function nil | 433 (defvar rmail-insert-mime-forwarded-message-function nil |
431 "Function to insert a message in MIME format so it can be forwarded. | 434 "Function to insert a message in MIME format so it can be forwarded. |
432 This function is called if `rmail-enable-mime' is non-nil. | 435 This function is called if `rmail-enable-mime' or |
436 `rmail-enable-mime-composing' is non-nil. | |
433 It is called with one argument FORWARD-BUFFER, which is a | 437 It is called with one argument FORWARD-BUFFER, which is a |
434 buffer containing the message to forward. The current buffer | 438 buffer containing the message to forward. The current buffer |
435 is the outgoing mail buffer.") | 439 is the outgoing mail buffer.") |
436 | 440 |
437 ;;;###autoload | 441 ;;;###autoload |
3251 (and (not rmail-mail-new-frame) (one-window-p t))) | 3255 (and (not rmail-mail-new-frame) (one-window-p t))) |
3252 ;; The mail buffer is now current. | 3256 ;; The mail buffer is now current. |
3253 (save-excursion | 3257 (save-excursion |
3254 ;; Insert after header separator--before signature if any. | 3258 ;; Insert after header separator--before signature if any. |
3255 (goto-char (mail-text-start)) | 3259 (goto-char (mail-text-start)) |
3256 (if rmail-enable-mime | 3260 (if (or rmail-enable-mime rmail-enable-mime-composing) |
3257 (funcall rmail-insert-mime-forwarded-message-function | 3261 (funcall rmail-insert-mime-forwarded-message-function |
3258 forward-buffer) | 3262 forward-buffer) |
3259 (insert "------- Start of forwarded message -------\n") | 3263 (insert "------- Start of forwarded message -------\n") |
3260 ;; Quote lines with `- ' if they start with `-'. | 3264 ;; Quote lines with `- ' if they start with `-'. |
3261 (let ((beg (point)) end) | 3265 (let ((beg (point)) end) |