[Emacs-diffs] Changes to emacs/lisp/mail/sendmail.el

[Richard M. Stallman]

Index: emacs/lisp/mail/sendmail.el
diff -c emacs/lisp/mail/sendmail.el:1.253 emacs/lisp/mail/sendmail.el:1.254
*** emacs/lisp/mail/sendmail.el:1.253   Thu Apr 25 17:33:14 2002
--- emacs/lisp/mail/sendmail.el Sun Apr 28 18:35:54 2002
***************
*** 1561,1568 ****
      ;; "#<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")
        ;; Bind dired-trivial-filenames to t because all auto-save file
--- 1561,1569 ----
      ;; "#<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) "*"))
+     (debug)
      (if (null (file-expand-wildcards wildcard))
        (message "There are no auto-saved drafts to recover")
        ;; Bind dired-trivial-filenames to t because all auto-save file