Mercurial > hg > xemacs-beta

comparison lisp/gnus/message.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 131b0175ea99
comparison
equal deleted inserted replaced
41:5d6df4963a99 42:8b8b7f3559a2
111 (defcustom message-send-rename-function nil 111 (defcustom message-send-rename-function nil
112 "Function called to rename the buffer after sending it." 112 "Function called to rename the buffer after sending it."
113 :group 'message-buffers 113 :group 'message-buffers
114 :type 'function) 114 :type 'function)
115 115
116 ;;;###autoload
117 (defcustom message-fcc-handler-function 'message-output 116 (defcustom message-fcc-handler-function 'message-output
118 "*A function called to save outgoing articles. 117 "*A function called to save outgoing articles.
119 This function will be called with the name of the file to store the 118 This function will be called with the name of the file to store the
120 article in. The default function is `message-output' which saves in Unix 119 article in. The default function is `message-output' which saves in Unix
121 mailbox format." 120 mailbox format."
1654 (message-do-actions actions))) 1653 (message-do-actions actions)))
1655 1654
1656 (defun message-kill-buffer () 1655 (defun message-kill-buffer ()
1657 "Kill the current buffer." 1656 "Kill the current buffer."
1658 (interactive) 1657 (interactive)
1659 (when (yes-or-no-p "Kill the buffer? ") 1658 (when (or (not (buffer-modified-p))
1659 (yes-or-no-p "Message modified; kill anyway? "))
1660 (let ((actions message-kill-actions)) 1660 (let ((actions message-kill-actions))
1661 (kill-buffer (current-buffer)) 1661 (kill-buffer (current-buffer))
1662 (message-do-actions actions)))) 1662 (message-do-actions actions))))
1663 1663
1664 (defun message-bury (buffer) 1664 (defun message-bury (buffer)
2459 (concat message-user-path "!" login-name)) 2459 (concat message-user-path "!" login-name))
2460 (t login-name)))) 2460 (t login-name))))
2461 2461
2462 (defun message-make-from () 2462 (defun message-make-from ()
2463 "Make a From header." 2463 "Make a From header."
2464 (let* ((login (message-make-address)) 2464 (let* ((style message-from-style)
2465 (login (message-make-address))
2465 (fullname 2466 (fullname
2466 (or (and (boundp 'user-full-name) 2467 (or (and (boundp 'user-full-name)
2467 user-full-name) 2468 user-full-name)
2468 (user-full-name)))) 2469 (user-full-name))))
2469 (when (string= fullname "&") 2470 (when (string= fullname "&")
2470 (setq fullname (user-login-name))) 2471 (setq fullname (user-login-name)))
2471 (save-excursion 2472 (save-excursion
2472 (message-set-work-buffer) 2473 (message-set-work-buffer)
2473 (cond 2474 (cond
2474 ((or (null message-from-style) 2475 ((or (null style)
2475 (equal fullname "")) 2476 (equal fullname ""))
2476 (insert login)) 2477 (insert login))
2477 ((or (eq message-from-style 'angles) 2478 ((or (eq style 'angles)
2478 (and (not (eq message-from-style 'parens)) 2479 (and (not (eq style 'parens))
2479 ;; Use angles if no quoting is needed, or if parens would 2480 ;; Use angles if no quoting is needed, or if parens would
2480 ;; need quoting too. 2481 ;; need quoting too.
2481 (or (not (string-match "[^- !#-'*+/-9=?A-Z^-~]" fullname)) 2482 (or (not (string-match "[^- !#-'*+/-9=?A-Z^-~]" fullname))
2482 (let ((tmp (concat fullname nil))) 2483 (let ((tmp (concat fullname nil)))
2483 (while (string-match "([^()]*)" tmp) 2484 (while (string-match "([^()]*)" tmp)