Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-msg.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
170 ,@forms 170 ,@forms
171 (gnus-inews-add-send-actions ,winconf ,buffer ,article) 171 (gnus-inews-add-send-actions ,winconf ,buffer ,article)
172 (setq gnus-message-buffer (current-buffer)) 172 (setq gnus-message-buffer (current-buffer))
173 (make-local-variable 'gnus-newsgroup-name) 173 (make-local-variable 'gnus-newsgroup-name)
174 (run-hooks 'gnus-message-setup-hook)) 174 (run-hooks 'gnus-message-setup-hook))
175 (gnus-configure-windows ,config t)))) 175 (gnus-configure-windows ,config t)
176 (set-buffer-modified-p nil))))
176 177
177 (defun gnus-inews-add-send-actions (winconf buffer article) 178 (defun gnus-inews-add-send-actions (winconf buffer article)
178 (make-local-hook 'message-sent-hook) 179 (make-local-hook 'message-sent-hook)
179 (gnus-add-hook 'message-sent-hook 'gnus-inews-do-gcc nil t) 180 (gnus-add-hook 'message-sent-hook 'gnus-inews-do-gcc nil t)
180 (setq message-post-method 181 (setq message-post-method