Mercurial > hg > xemacs-beta

comparison lisp/modes/sendmail.el @ 42:8b8b7f3559a2 r19-15b104

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b104
author cvs
date Mon, 13 Aug 2007 08:54:51 +0200
parents 1a767b41a199
children 56c54cf7c5b6
comparison
equal deleted inserted replaced
41:5d6df4963a99 42:8b8b7f3559a2
310 ;; TODO: Run sanity check from Gnus here. 310 ;; TODO: Run sanity check from Gnus here.
311 (when (y-or-n-p "Save address for future sessions? ") 311 (when (y-or-n-p "Save address for future sessions? ")
312 (put 'user-mail-address 'saved-value 312 (put 'user-mail-address 'saved-value
313 (list user-mail-address)) 313 (list user-mail-address))
314 (put 'query-user-mail-address 'saved-value '(nil)) 314 (put 'query-user-mail-address 'saved-value '(nil))
315 (custom-save-all))) 315 (require 'cus-edit)
316 (if user-mail-address 316 (custom-save-all))))
317 user-mail-address 317 (if user-mail-address
318 (setq user-mail-address (concat (user-login-name) "@" 318 user-mail-address
319 (or mail-host-address 319 (setq user-mail-address (concat (user-login-name) "@"
320 (system-name))))))) 320 (or mail-host-address
321 (system-name))))))
321 322
322 (defun mail-setup (to subject in-reply-to cc replybuffer actions) 323 (defun mail-setup (to subject in-reply-to cc replybuffer actions)
323 (or mail-default-reply-to 324 (or mail-default-reply-to
324 (setq mail-default-reply-to (getenv "REPLYTO"))) 325 (setq mail-default-reply-to (getenv "REPLYTO")))
325 ;Removed. See `mail-abbrevs.el'. 326 ;Removed. See `mail-abbrevs.el'.