[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 <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.