From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/18873 Path: news.gmane.org!.POSTED!not-for-mail From: Lars-Johan Liman Newsgroups: gmane.emacs.gnus.user Subject: Re: on selecting a region of articles to be marked for download Date: Tue, 31 Jul 2018 23:42:14 +0200 Message-ID: <22bmanqdzd.fsf@netnod.se> References: <86y3dun69w.fsf@dev.null> <86d0v5x03r.fsf@zoho.com> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit X-Trace: blaine.gmane.org 1533073223 13507 195.159.176.226 (31 Jul 2018 21:40:23 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Tue, 31 Jul 2018 21:40:23 +0000 (UTC) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3 (darwin) To: info-gnus-english@gnu.org Original-X-From: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Tue Jul 31 23:40:19 2018 Return-path: Envelope-to: gegu-info-gnus-english@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1fkcNJ-0003N5-QK for gegu-info-gnus-english@m.gmane.org; Tue, 31 Jul 2018 23:40:13 +0200 Original-Received: from localhost ([::1]:60764 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fkcPQ-0008EM-Fk for gegu-info-gnus-english@m.gmane.org; Tue, 31 Jul 2018 17:42:24 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:36626) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fkcPO-0008EH-2B for info-gnus-english@gnu.org; Tue, 31 Jul 2018 17:42:22 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1fkcPK-0003GZ-LY for info-gnus-english@gnu.org; Tue, 31 Jul 2018 17:42:22 -0400 Original-Received: from mail.cafax.se ([2a00:801:11:53::4]:57338) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1fkcPK-0003FN-Ac for info-gnus-english@gnu.org; Tue, 31 Jul 2018 17:42:18 -0400 Original-Received: from hiptop.localdomain (host-95-199-30-11.mobileonline.telia.com [95.199.30.11]) by mail.cafax.se (8.15.1/8.15.1) with ESMTPS id w6VLgFT5006353 (version=TLSv1 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK) for ; Tue, 31 Jul 2018 23:42:15 +0200 (MEST) Original-Received: from hiptop (localhost [IPv6:::1]) by hiptop.localdomain (Postfix) with ESMTP id BE7761CA7E37 for ; Tue, 31 Jul 2018 23:42:14 +0200 (CEST) In-Reply-To: <86d0v5x03r.fsf@zoho.com> (Emanuel Berg's message of "Sun, 29 Jul 2018 22:23:20 +0200") X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 2a00:801:11:53::4 X-BeenThere: info-gnus-english@gnu.org X-Mailman-Version: 2.1.21 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" Xref: news.gmane.org gmane.emacs.gnus.user:18873 Archived-At: moasen@zoho.com: > If you for some reason don't want to use the > prefix argument method, I have some Elisp to do > just what you want: > (defun gnus-summary-mark (char start stop) > (interactive > (let ((c (read-char "mark: "))) > (if (use-region-p) > (list c (region-beginning) (region-end)) > (let*((strt (point)) > (stp (1+ strt)) ) > (list c strt stp) )))) > (goto-char start) > (beginning-of-line) > (while (< (point) stop) > (gnus-summary-mark-article (gnus-summary-article-number) char) > (gnus-summary-find-next) )) Oh! Cool stuff! Thanks for sharing! Cheers, /Liman #------------------------------------------------------------------------- # Lars-Johan Liman, M.Sc. ! HTTP : //www.cafax.se/ # Cafax AB ! # Computer Consultants, Sweden ! #-------------------------------------------------------------------------