From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/16246 Path: news.gmane.org!not-for-mail From: Oleksandr Gavenko Newsgroups: gmane.emacs.gnus.user Subject: Re: Score on same subject to avoid read message with this subject in future... Date: Thu, 11 Apr 2013 00:14:52 +0300 Organization: Oleksandr Gavenko , http://gavenkoa.users.sf.net Message-ID: <87mwt6xf3n.fsf@gavenkoa.example.com> References: <878v4uf1e4.fsf@gavenkoa.example.com> 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 1365628505 988 80.91.229.3 (10 Apr 2013 21:15:05 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Wed, 10 Apr 2013 21:15:05 +0000 (UTC) To: info-gnus-english@gnu.org Original-X-From: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Wed Apr 10 23:15:09 2013 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 1UQ2MG-0004j8-FF for gegu-info-gnus-english@m.gmane.org; Wed, 10 Apr 2013 23:15:08 +0200 Original-Received: from localhost ([::1]:57673 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UQ2MF-00061G-Tq for gegu-info-gnus-english@m.gmane.org; Wed, 10 Apr 2013 17:15:07 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:42360) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UQ2MD-0005yO-Ea for info-gnus-english@gnu.org; Wed, 10 Apr 2013 17:15:06 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UQ2M9-0005e0-6d for info-gnus-english@gnu.org; Wed, 10 Apr 2013 17:15:05 -0400 Original-Received: from plane.gmane.org ([80.91.229.3]:36832) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UQ2M8-0005da-Vw for info-gnus-english@gnu.org; Wed, 10 Apr 2013 17:15:01 -0400 Original-Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1UQ2M6-0004UV-CK for info-gnus-english@gnu.org; Wed, 10 Apr 2013 23:14:58 +0200 Original-Received: from 5.248.35.167 ([5.248.35.167]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 10 Apr 2013 23:14:58 +0200 Original-Received: from gavenkoa by 5.248.35.167 with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 10 Apr 2013 23:14:58 +0200 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 45 Original-X-Complaints-To: usenet@ger.gmane.org X-Gmane-NNTP-Posting-Host: 5.248.35.167 User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.2 (gnu/linux) Cancel-Lock: sha1:276bln016idqxzEo0UHljNB3AIw= 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:16246 Archived-At: On 2013-04-08, Oleksandr Gavenko wrote: > So I try to implement killing by subject: > > (defun my-gnus-summary-kill-same-subject (&optional unmark) > (interactive "P") > (when (or (not (integerp unmark)) (< 0 unmark)) > (gnus-summary-score-entry > "subject" (gnus-simplify-subject-fuzzy (gnus-summary-article-subject)) > 's (- gnus-score-interactive-default-score) (current-time-string))) > (gnus-summary-kill-same-subject unmark)) > (eval-after-load 'gnus-summary > '(define-key gnus-summary-mode-map (kbd "C-k") #'my-gnus-summary-kill-same-subject)) > > I know about 'I' key binding but it require a lot of typing and attention... My latest implementation: (defvar my-gnus-summary-kill-same-subject-min-len 8 "Minimal length of subject string to ignore this subject.") (defun my-gnus-summary-kill-same-subject (&optional unmark) "Add negative scores for all articles with same subject." (interactive "P") (when (or (not (integerp unmark)) (< 0 unmark)) (let ( (subj (gnus-simplify-subject-fuzzy (gnus-summary-article-subject))) ) (when (<= (length subj) my-gnus-summary-kill-same-subject-min-len) (gnus-summary-score-entry "subject" subj 's (- gnus-score-interactive-default-score) (current-time-string))))) (gnus-summary-kill-same-subject unmark)) (eval-after-load 'gnus-sum '(define-key gnus-summary-mode-map (kbd "C-k") #'my-gnus-summary-kill-same-subject)) It like defadvice for 'gnus-summary-kill-same-subject' but only for key binding... Also I put limits for too short subjects to prevent false matches. After using this function to group.SCORE file added entries like: ("subject" ("How to deal with \"Archive\" and \"delete\" in gmail?" -100 734966 s)) -- Best regards!