Emanuel Berg <[email protected]> writes:
> This works:
>
> (defun process-sender (sender)
> (gnus-kill "From" sender '(gnus-summary-mark-as-processable 1) t) )
>
> (defun process-sender-at-point ()
> (interactive)
> (save-window-excursion ; better way
> (gnus-summary-select-article) ; to do this?
> (let ((sender (gnus-article-header-value "From")))
> (process-sender sender) )))
Indeed it does. I just had to define:
--8<---------------cut here---------------start------------->8---
(defun gnus-article-header-value (header)
"Get the value of HEADER for the current article."
(with-current-buffer gnus-original-article-buffer
(gnus-fetch-field header) ))
--8<---------------cut here---------------end--------------->8---
which seems to be a custom function of yours.
Thanks,
Julien.
_______________________________________________
info-gnus-english mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/info-gnus-english
