Re: Set process mark according to author

[Julien Cubizolles <j.cubizolles@free.fr>]

Emanuel Berg <embe8573@student.uu.se> 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.