Mercurial > hg > xemacs-beta

comparison lisp/gnus/message.el @ 151:59463afc5666 r20-3b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b2
author cvs
date Mon, 13 Aug 2007 09:37:19 +0200
parents 1856695b1fa9
children 25f70ba0133c
comparison
equal deleted inserted replaced
150:8ebb1c0f0f6f 151:59463afc5666
2966 (unless (file-exists-p message-autosave-directory) 2966 (unless (file-exists-p message-autosave-directory)
2967 (make-directory message-autosave-directory t)) 2967 (make-directory message-autosave-directory t))
2968 (let ((name (make-temp-name 2968 (let ((name (make-temp-name
2969 (expand-file-name 2969 (expand-file-name
2970 (concat (file-name-as-directory message-autosave-directory) 2970 (concat (file-name-as-directory message-autosave-directory)
2971 "msg."))))) 2971 "msg." (buffer-name))))))
2972 (setq buffer-auto-save-file-name 2972 (setq buffer-auto-save-file-name
2973 (save-excursion 2973 (save-excursion
2974 (prog1 2974 (prog1
2975 (progn 2975 (progn
2976 (set-buffer (get-buffer-create " *draft tmp*")) 2976 (set-buffer (get-buffer-create " *draft tmp*"))