/[emacs]/emacs/lisp/mail/rmail.el
ViewVC logotype

Diff of /emacs/lisp/mail/rmail.el

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

revision 1.349 by eliz, Sun Sep 16 07:55:19 2001 UTC revision 1.350 by zsh, Sun Nov 25 20:45:37 2001 UTC
# Line 420  until a user explicitly requires it." Line 420  until a user explicitly requires it."
420                   (other :tag "when asked" ask))                   (other :tag "when asked" ask))
421    :group 'rmail)    :group 'rmail)
422    
423    (defvar rmail-enable-mime-composing nil
424      "*If non-nil, RMAIL uses `rmail-insert-mime-forwarded-message-function' to forward.")
425    
426  ;;;###autoload  ;;;###autoload
427  (defvar rmail-show-mime-function nil  (defvar rmail-show-mime-function nil
428    "Function to show MIME decoded message of RMAIL file.    "Function to show MIME decoded message of RMAIL file.
# Line 429  It is called with no argument.") Line 432  It is called with no argument.")
432  ;;;###autoload  ;;;###autoload
433  (defvar rmail-insert-mime-forwarded-message-function nil  (defvar rmail-insert-mime-forwarded-message-function nil
434    "Function to insert a message in MIME format so it can be forwarded.    "Function to insert a message in MIME format so it can be forwarded.
435  This function is called if `rmail-enable-mime' is non-nil.  This function is called if `rmail-enable-mime' or
436    `rmail-enable-mime-composing' is non-nil.
437  It is called with one argument FORWARD-BUFFER, which is a  It is called with one argument FORWARD-BUFFER, which is a
438  buffer containing the message to forward.  The current buffer  buffer containing the message to forward.  The current buffer
439  is the outgoing mail buffer.")  is the outgoing mail buffer.")
# Line 3253  see the documentation of `rmail-resend'. Line 3257  see the documentation of `rmail-resend'.
3257            (save-excursion            (save-excursion
3258              ;; Insert after header separator--before signature if any.              ;; Insert after header separator--before signature if any.
3259              (goto-char (mail-text-start))              (goto-char (mail-text-start))
3260              (if rmail-enable-mime              (if (or rmail-enable-mime rmail-enable-mime-composing)
3261                  (funcall rmail-insert-mime-forwarded-message-function                  (funcall rmail-insert-mime-forwarded-message-function
3262                           forward-buffer)                           forward-buffer)
3263                (insert "------- Start of forwarded message -------\n")                (insert "------- Start of forwarded message -------\n")

Legend:
Removed from v.1.349  
changed lines
  Added in v.1.350

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