[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Set process mark according to author

From: Julien Cubizolles
Subject: Re: Set process mark according to author
Date: Mon, 20 Apr 2015 09:32:58 +0200
User-agent: Gnus/5.130012 (Ma Gnus v0.12) Emacs/25.0.50 (gnu/linux)

Emanuel Berg <> 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.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]