From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/17595 Path: news.gmane.org!not-for-mail From: Julien Cubizolles Newsgroups: gmane.emacs.gnus.user Subject: Re: Set process mark according to author Date: Mon, 20 Apr 2015 09:32:58 +0200 Message-ID: <87r3rf8dat.fsf@free.fr> References: <87zj63vjpm.fsf@debian.uxu> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit X-Trace: ger.gmane.org 1429515207 2550 80.91.229.3 (20 Apr 2015 07:33:27 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Mon, 20 Apr 2015 07:33:27 +0000 (UTC) To: info-gnus-english@gnu.org Original-X-From: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Mon Apr 20 09:33:18 2015 Return-path: Envelope-to: gegu-info-gnus-english@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Yk6Ci-0003ou-Up for gegu-info-gnus-english@m.gmane.org; Mon, 20 Apr 2015 09:33:17 +0200 Original-Received: from localhost ([::1]:52118 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Yk6Ci-0005dN-90 for gegu-info-gnus-english@m.gmane.org; Mon, 20 Apr 2015 03:33:16 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:51600) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Yk6Cg-0005dG-KH for info-gnus-english@gnu.org; Mon, 20 Apr 2015 03:33:15 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Yk6Cd-00042F-86 for info-gnus-english@gnu.org; Mon, 20 Apr 2015 03:33:14 -0400 Original-Received: from plane.gmane.org ([80.91.229.3]:55916) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Yk6Cd-000425-19 for info-gnus-english@gnu.org; Mon, 20 Apr 2015 03:33:11 -0400 Original-Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1Yk6Cb-0003l8-Bg for info-gnus-english@gnu.org; Mon, 20 Apr 2015 09:33:09 +0200 Original-Received: from gas45-3-82-244-252-119.fbx.proxad.net ([82.244.252.119]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 20 Apr 2015 09:33:09 +0200 Original-Received: from j.cubizolles by gas45-3-82-244-252-119.fbx.proxad.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 20 Apr 2015 09:33:09 +0200 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 29 Original-X-Complaints-To: usenet@ger.gmane.org X-Gmane-NNTP-Posting-Host: gas45-3-82-244-252-119.fbx.proxad.net User-Agent: Gnus/5.130012 (Ma Gnus v0.12) Emacs/25.0.50 (gnu/linux) Cancel-Lock: sha1:F+f15CuvWR66Vx8cB4abDg/v2pg= X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 80.91.229.3 X-BeenThere: info-gnus-english@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Announcements and discussions for GNUS, the GNU Emacs Usenet newsreader \(in English\)" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Original-Sender: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.gnus.user:17595 Archived-At: 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. Thanks, Julien.