/[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.251 by monnier, Fri Feb 1 21:59:53 2002 UTC revision 1.252 by rms, Sun Mar 3 22:18:12 2002 UTC
# Line 471  Here are commands that move to a header Line 471  Here are commands that move to a header
471  \\[mail-sent-via]  mail-sent-via (add a Sent-via field for each To or CC).  \\[mail-sent-via]  mail-sent-via (add a Sent-via field for each To or CC).
472  Turning on Mail mode runs the normal hooks `text-mode-hook' and  Turning on Mail mode runs the normal hooks `text-mode-hook' and
473  `mail-mode-hook' (in that order)."  `mail-mode-hook' (in that order)."
474      (setq local-abbrev-table text-mode-abbrev-table)
475    (make-local-variable 'mail-reply-action)    (make-local-variable 'mail-reply-action)
476    (make-local-variable 'mail-send-actions)    (make-local-variable 'mail-send-actions)
477    (setq buffer-offer-save t)    (setq buffer-offer-save t)
# Line 1547  The seventh argument ACTIONS is a list o Line 1548  The seventh argument ACTIONS is a list o
1548      ;; "#<RANDOM-STUFF>#" to the buffer name, where RANDOM-STUFF      ;; "#<RANDOM-STUFF>#" to the buffer name, where RANDOM-STUFF
1549      ;; is the result of (make-temp-name "").      ;; is the result of (make-temp-name "").
1550      (setq non-random-len      (setq non-random-len
1551            (- (length file-name) (length (make-temp-name "")) 1))            (- (length file-name) (length (make-temp-name ""))))
1552      (setq wildcard (concat (substring file-name 0 non-random-len) "*"))      (setq wildcard (concat (substring file-name 0 non-random-len) "*"))
1553      (if (null (file-expand-wildcards wildcard))      (if (null (file-expand-wildcards wildcard))
1554          (message "There are no auto-saved drafts to recover")          (message "There are no auto-saved drafts to recover")
# Line 1631  you can move to one of them and type C-c Line 1632  you can move to one of them and type C-c
1632                    ;; ls-lisp instead).                    ;; ls-lisp instead).
1633                    (dired-noselect file-name                    (dired-noselect file-name
1634                                    (concat dired-listing-switches "t"))))                                    (concat dired-listing-switches "t"))))
1635               (save-excursion               (save-selected-window
1636                 (set-buffer dispbuf)                 (select-window (display-buffer dispbuf t))
1637                 (let ((buffer-read-only nil))                 (goto-char (point-min))
1638                   (goto-char (point-min))                 (forward-line 2)
1639                   (forward-line)                 (dired-move-to-filename)
1640                   (kill-line 2)                 (setq dispbuf (rename-buffer "*Directory*" t)))
                  (dired-move-to-filename)  
                  (setq dispbuf (rename-buffer "*Directory*" t))))  
              (display-buffer dispbuf t)  
1641               (if (not (yes-or-no-p               (if (not (yes-or-no-p
1642                         (format "Recover mail draft from auto save file %s? "                         (format "Recover mail draft from auto save file %s? "
1643                                 file-name)))                                 file-name)))

Legend:
Removed from v.1.251  
changed lines
  Added in v.1.252

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