Lines Matching +defs:gnus +defs:current +defs:article
69 ;; This requires the following in your ~/.gnus file:
127 (defvar gnus-original-article-buffer)
135 :group 'gnus)
214 Evaluate BODY with syntax table of current buffer set to a copy of TABLE.
215 The syntax table of the current buffer is saved, BODY is evaluated, and the
221 (,old-buffer (current-buffer)))
226 (save-current-buffer
232 (defun spam-stat-store-current-buffer ()
233 "Store a copy of the current buffer in `spam-stat-buffer'."
239 (setq spam-stat-buffer (current-buffer)))))
241 (defun spam-stat-store-gnus-article-buffer ()
242 "Store a copy of the current article in `spam-stat-buffer'.
243 This uses `gnus-article-buffer'."
245 (set-buffer gnus-original-article-buffer)
246 (spam-stat-store-current-buffer)))
341 "Consider current buffer to be a new spam mail."
355 "Consider current buffer to be a new non-spam mail."
369 "Consider current buffer no longer normal mail but spam."
385 "Consider current buffer no longer spam but normal mail."
408 (let ((standard-output (current-buffer))
466 "Process current buffer, return the 15 most conspicuous words.
491 "Return the name of the spam group if the current mail is spam.
586 'spam-stat-store-current-buffer)
587 (add-hook 'gnus-select-article-hook
588 'spam-stat-store-gnus-article-buffer))
597 'spam-stat-store-current-buffer)
598 (remove-hook 'gnus-select-article-hook
599 'spam-stat-store-gnus-article-buffer))