Mercurial > hg > xemacs-beta

comparison lisp/gnus/message.el @ 34:d620409f5eb8 r19-15b100

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b100
author cvs
date Mon, 13 Aug 2007 08:53:20 +0200
parents e04119814345
children 1a767b41a199
comparison
equal deleted inserted replaced
33:9ee3cade837d 34:d620409f5eb8
2903 "Associate the message buffer with a file in the drafts directory." 2903 "Associate the message buffer with a file in the drafts directory."
2904 (when message-autosave-directory 2904 (when message-autosave-directory
2905 (unless (file-exists-p message-autosave-directory) 2905 (unless (file-exists-p message-autosave-directory)
2906 (make-directory message-autosave-directory t)) 2906 (make-directory message-autosave-directory t))
2907 (let ((name (make-temp-name 2907 (let ((name (make-temp-name
2908 (concat (file-name-as-directory message-autosave-directory) 2908 (expand-file-name
2909 "msg.")))) 2909 (concat (file-name-as-directory message-autosave-directory)
2910 "msg.")))))
2910 (setq buffer-auto-save-file-name 2911 (setq buffer-auto-save-file-name
2911 (save-excursion 2912 (save-excursion
2912 (prog1 2913 (prog1
2913 (progn 2914 (progn
2914 (set-buffer (get-buffer-create " *draft tmp*")) 2915 (set-buffer (get-buffer-create " *draft tmp*"))