emacs-diffs
[Top][All Lists]
Advanced

[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)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]