Mercurial > hg > xemacs-beta

comparison lisp/rmail/rmailout.el @ 16:0293115a14e9 r19-15b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b91
author cvs
date Mon, 13 Aug 2007 08:49:20 +0200
parents 376386a54a3c
children 131b0175ea99
comparison
equal deleted inserted replaced
15:ad457d5f7d04 16:0293115a14e9
16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of 16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 ;; General Public License for more details. 18 ;; General Public License for more details.
19 19
20 ;; You should have received a copy of the GNU General Public License 20 ;; You should have received a copy of the GNU General Public License
21 ;; along with XEmacs; see the file COPYING. If not, write to the Free 21 ;; along with XEmacs; see the file COPYING. If not, write to the
22 ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
23 24
24 ;;; Code: 25 ;;; Code:
25 26
26 ;; Temporary until Emacs always has this variable. 27 ;; Temporary until Emacs always has this variable.
27 (defvar rmail-delete-after-output nil 28 (defvar rmail-delete-after-output nil
59 (setq answer (eval (cdr (car tail))))) 60 (setq answer (eval (cdr (car tail)))))
60 (setq tail (cdr tail)))) 61 (setq tail (cdr tail))))
61 ;; If not suggestions, use same file as last time. 62 ;; If not suggestions, use same file as last time.
62 (or answer rmail-last-rmail-file)))) 63 (or answer rmail-last-rmail-file))))
63 (list (setq rmail-last-rmail-file 64 (list (setq rmail-last-rmail-file
64 (read-file-name 65 (if default-file
65 (concat "Output message to Rmail file: (default " 66 (read-file-name
66 (file-name-nondirectory default-file) 67 (concat "Output message to Rmail file: (default "
67 ") ") 68 (file-name-nondirectory default-file)
68 (file-name-directory default-file) 69 ") ")
69 default-file)) 70 (file-name-directory default-file)
71 default-file)
72 (read-file-name "Output message to Rmail file: ")))
70 (prefix-numeric-value current-prefix-arg)))) 73 (prefix-numeric-value current-prefix-arg))))
71 (or count (setq count 1)) 74 (or count (setq count 1))
72 (setq file-name 75 (setq file-name
73 (expand-file-name file-name 76 (expand-file-name file-name
74 (file-name-directory rmail-last-rmail-file))) 77 (file-name-directory rmail-last-rmail-file)))