Mercurial > hg > xemacs-beta

comparison lisp/modes/sendmail.el @ 48:56c54cf7c5b6 r19-16b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16b90
author cvs
date Mon, 13 Aug 2007 08:56:04 +0200
parents 8b8b7f3559a2
children 131b0175ea99
comparison
equal deleted inserted replaced
47:11c6df210d7f 48:56c54cf7c5b6
288 288
289 ;; Courtesy of Per Abrahamsen <abraham@dina.kvl.dk> in an attempt to make 289 ;; Courtesy of Per Abrahamsen <abraham@dina.kvl.dk> in an attempt to make
290 ;; Emacs and XEmacs less stupid about default mail addresses. 290 ;; Emacs and XEmacs less stupid about default mail addresses.
291 291
292 ;; We trust the administrator if he has set `mail-host-address'. 292 ;; We trust the administrator if he has set `mail-host-address'.
293 (defcustom query-user-mail-address (not mail-host-address) 293 ;; We trust the user if he has already customized `user-mail-address'.
294 (defcustom query-user-mail-address (and (not mail-host-address)
295 (not user-mail-address))
294 "If non-nil, prompt the user for his mail address." 296 "If non-nil, prompt the user for his mail address."
295 :group 'message 297 :group 'message
296 :type 'boolean) 298 :type 'boolean)
297 299
298 ;;;###autoload 300 ;;;###autoload
1001 (beginning-of-line) 1003 (beginning-of-line)
1002 (skip-chars-backward "\n") 1004 (skip-chars-backward "\n")
1003 t) 1005 t)
1004 (or soft 1006 (or soft
1005 (progn (goto-char end) 1007 (progn (goto-char end)
1006 ;; #### FSF has the next two clauses reversed. 1008 (insert field ": \n")
1007 ;; which is correct? 1009 (forward-char -1)))
1008 (skip-chars-backward "\n")
1009 (insert "\n" field ": ")))
1010 nil))) 1010 nil)))
1011 1011
1012 (defun mail-text () 1012 (defun mail-text ()
1013 "Move point to beginning of message text." 1013 "Move point to beginning of message text."
1014 (interactive) 1014 (interactive)