Mercurial > hg > xemacs-beta

comparison lisp/gnus/message.el @ 167:85ec50267440 r20-3b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b10
author cvs
date Mon, 13 Aug 2007 09:45:46 +0200
parents 0132846995bd
children 15872534500d
comparison
equal deleted inserted replaced
166:7a77eb660975 167:85ec50267440
2970 (let ((name (make-temp-name 2970 (let ((name (make-temp-name
2971 (expand-file-name 2971 (expand-file-name
2972 (concat (file-name-as-directory message-autosave-directory) 2972 (concat (file-name-as-directory message-autosave-directory)
2973 "msg." 2973 "msg."
2974 (nnheader-replace-chars-in-string 2974 (nnheader-replace-chars-in-string
2975 (buffer-name) ?* ?.)))))) 2975 (nnheader-replace-chars-in-string
2976 (buffer-name) ?* ?.)
2977 ?/ ?-))))))
2976 (setq buffer-auto-save-file-name 2978 (setq buffer-auto-save-file-name
2977 (save-excursion 2979 (save-excursion
2978 (prog1 2980 (prog1
2979 (progn 2981 (progn
2980 (set-buffer (get-buffer-create " *draft tmp*")) 2982 (set-buffer (get-buffer-create " *draft tmp*"))