Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-msg.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
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