procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(mail-recover-1): Decrease non-random-len by 1 for the newly-readded #.

Browse source
This commit is contained in:
Richard M. Stallman 2002-04-28 22:35:54 +00:00
parent 3c4a7cf326
commit d41eb0aaeb
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/mail/sendmail.el
View file

@ -1561,8 +1561,9 @@ The seventh argument ACTIONS is a list of actions to take
;; "#<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 ""))))
(- (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