Mercurial > hg > xemacs-beta

comparison lisp/gnus/message.el @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents 8619ce7e4c50
children 7d55a9ba150c
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
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)