[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mail/sendmail.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mail/sendmail.el |
Date: |
Sun, 03 Mar 2002 17:18:13 -0500 |
Index: emacs/lisp/mail/sendmail.el
diff -c emacs/lisp/mail/sendmail.el:1.251 emacs/lisp/mail/sendmail.el:1.252
*** emacs/lisp/mail/sendmail.el:1.251 Fri Feb 1 16:59:53 2002
--- emacs/lisp/mail/sendmail.el Sun Mar 3 17:18:12 2002
***************
*** 471,476 ****
--- 471,477 ----
\\[mail-sent-via] mail-sent-via (add a Sent-via field for each To or CC).
Turning on Mail mode runs the normal hooks `text-mode-hook' and
`mail-mode-hook' (in that order)."
+ (setq local-abbrev-table text-mode-abbrev-table)
(make-local-variable 'mail-reply-action)
(make-local-variable 'mail-send-actions)
(setq buffer-offer-save t)
***************
*** 1547,1553 ****
;; "#<RANDOM-STUFF>#" to the buffer name, where RANDOM-STUFF
;; is the result of (make-temp-name "").
(setq non-random-len
! (- (length file-name) (length (make-temp-name "")) 1))
(setq wildcard (concat (substring file-name 0 non-random-len) "*"))
(if (null (file-expand-wildcards wildcard))
(message "There are no auto-saved drafts to recover")
--- 1548,1554 ----
;; "#<RANDOM-STUFF>#" to the buffer name, where RANDOM-STUFF
;; is the result of (make-temp-name "").
(setq non-random-len
! (- (length file-name) (length (make-temp-name ""))))
(setq wildcard (concat (substring file-name 0 non-random-len) "*"))
(if (null (file-expand-wildcards wildcard))
(message "There are no auto-saved drafts to recover")
***************
*** 1631,1645 ****
;; ls-lisp instead).
(dired-noselect file-name
(concat dired-listing-switches "t"))))
! (save-excursion
! (set-buffer dispbuf)
! (let ((buffer-read-only nil))
! (goto-char (point-min))
! (forward-line)
! (kill-line 2)
! (dired-move-to-filename)
! (setq dispbuf (rename-buffer "*Directory*" t))))
! (display-buffer dispbuf t)
(if (not (yes-or-no-p
(format "Recover mail draft from auto save file %s? "
file-name)))
--- 1632,1643 ----
;; ls-lisp instead).
(dired-noselect file-name
(concat dired-listing-switches "t"))))
! (save-selected-window
! (select-window (display-buffer dispbuf t))
! (goto-char (point-min))
! (forward-line 2)
! (dired-move-to-filename)
! (setq dispbuf (rename-buffer "*Directory*" t)))
(if (not (yes-or-no-p
(format "Recover mail draft from auto save file %s? "
file-name)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/mail/sendmail.el,
Richard M. Stallman <=