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

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

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

revision 1.290 by eliz, Fri Sep 9 12:33:21 2005 UTC revision 1.291 by cyd, Mon Sep 12 21:58:21 2005 UTC
# Line 1591  is inserted. Line 1591  is inserted.
1591  The normal hook `mail-setup-hook' is run after the message is  The normal hook `mail-setup-hook' is run after the message is
1592  initialized.  It can add more default fields to the message.  initialized.  It can add more default fields to the message.
1593    
1594  When calling from a program, the first argument if non-nil says  The first argument, NOERASE, determines what to do when there is
1595  not to erase the existing contents of the `*mail*' buffer.  an existing modified `*mail*' buffer.  If NOERASE is nil, the
1596    existing mail buffer is used, and the user is prompted whether to
1597    keep the old contents or to erase them.  If NOERASE has the value
1598    `new', a new mail buffer will be created instead of using the old
1599    one.  Any other non-nil value means to always select the old
1600    buffer without erasing the contents.
1601    
1602  The second through fifth arguments,  The second through fifth arguments,
1603   TO, SUBJECT, IN-REPLY-TO and CC, specify if non-nil   TO, SUBJECT, IN-REPLY-TO and CC, specify if non-nil
# Line 1649  The seventh argument ACTIONS is a list o Line 1654  The seventh argument ACTIONS is a list o
1654  ;;;                (file-exists-p buffer-auto-save-file-name))  ;;;                (file-exists-p buffer-auto-save-file-name))
1655  ;;;           (message "Auto save file for draft message exists; consider M-x mail-recover"))  ;;;           (message "Auto save file for draft message exists; consider M-x mail-recover"))
1656  ;;;          t))  ;;;          t))
1657    (pop-to-buffer "*mail*")  
1658      (if (eq noerase 'new)
1659          (pop-to-buffer (generate-new-buffer "*mail*"))
1660        (pop-to-buffer "*mail*"))
1661    
1662    ;; Avoid danger that the auto-save file can't be written.    ;; Avoid danger that the auto-save file can't be written.
1663    (let ((dir (expand-file-name    (let ((dir (expand-file-name
1664                (file-name-as-directory mail-default-directory))))                (file-name-as-directory mail-default-directory))))
# Line 1664  The seventh argument ACTIONS is a list o Line 1673  The seventh argument ACTIONS is a list o
1673    ;; (in case the user has actually visited a file *mail*).    ;; (in case the user has actually visited a file *mail*).
1674  ;  (set-visited-file-name nil)  ;  (set-visited-file-name nil)
1675    (let (initialized)    (let (initialized)
1676      (and (not noerase)      (and (or (not noerase)
1677                 (eq noerase 'new))
1678           (if buffer-file-name           (if buffer-file-name
1679               (if (buffer-modified-p)               (if (buffer-modified-p)
1680                   (when (y-or-n-p "Buffer has unsaved changes; reinitialize it and discard them? ")                   (when (y-or-n-p "Buffer has unsaved changes; reinitialize it and discard them? ")

Legend:
Removed from v.1.290  
changed lines
  Added in v.1.291

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