Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-salt.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 ec9a17fef872
children 8d2a9b52c682
comparison
equal deleted inserted replaced
41:5d6df4963a99 42:8b8b7f3559a2
127 minor-mode-map-alist)) 127 minor-mode-map-alist))
128 (run-hooks 'gnus-pick-mode-hook)))) 128 (run-hooks 'gnus-pick-mode-hook))))
129 129
130 (defun gnus-pick-setup-message () 130 (defun gnus-pick-setup-message ()
131 "Make Message do the right thing on exit." 131 "Make Message do the right thing on exit."
132 (when (and (gnus-buffer-live-p gnus-summary-buffer) 132 (when (and (buffer-live-p gnus-summary-buffer)
133 (save-excursion 133 (save-excursion
134 (set-buffer gnus-summary-buffer) 134 (set-buffer gnus-summary-buffer)
135 gnus-pick-mode)) 135 gnus-pick-mode))
136 (message-add-action 136 (message-add-action
137 '(gnus-configure-windows 'pick t) 'send 'exit 'postpone 'kill))) 137 '(gnus-configure-windows 'pick t) 'send 'exit 'postpone 'kill)))