Re: hard rescan broken?

[Eric Abrahamsen <eric@ericabrahamsen.net>]

[-- Attachment #1: Type: text/plain, Size: 923 bytes --]

Mike Kupfer <m.kupfer@acm.org> writes:

> In the *Group* buffer, the docstring for "g" says
>
>     If ARG is non-nil and not a number, this will force
>     "hard" re-reading of the active files from all servers.
>
> So IIUC,
>
>   C-u g
>
> should give me a hard rescan.  Instead I get an error with the following
> backtrace:
>
>   Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p (4))
>     <=(1 (4))
>     gnus-get-unread-articles((4) nil nil)
>     gnus-group-get-new-news((4))
>     funcall-interactively(gnus-group-get-new-news (4))
>     call-interactively(gnus-group-get-new-news nil nil)
>     command-execute(gnus-group-get-new-news)
>
> I see this with Emacs 24.5 and Emacs 25.  Am I confused or is this
> broken?
>
> thanks,
> mike

My vote is for "broken". Would you try out the attached patch? It will
avoid the error -- I also hope it will produce the correct behavior.

Thanks,
Eric


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-Honor-docstring-of-gnus-group-get-new-news.patch --]
[-- Type: text/x-diff, Size: 1325 bytes --]

From 7ef58efd161bbcc11df99ec7a4856a3f3bf84896 Mon Sep 17 00:00:00 2001
From: Eric Abrahamsen <eric@ericabrahamsen.net>
Date: Thu, 14 Jan 2016 12:25:21 +0800
Subject: [PATCH] Honor docstring of gnus-group-get-new-news

* lisp/gnus-start.el (gnus-get-unread-articles): If the prefix arg is t,
  but non-numeric, unconditionally consider all groups to need updating.
---
 lisp/gnus-start.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index f03ff85..f2e6978 100644
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -1672,10 +1672,11 @@ backend check whether the group actually exists."
 	(push (setq method-group-list (list method method-type nil nil))
 	      type-cache))
       ;; Only add groups that need updating.
-      (if (funcall (if one-level #'= #'<=) (gnus-info-level info)
-	      (if (eq (cadr method-group-list) 'foreign)
-		  foreign-level
-		alevel))
+      (if (or (and foreign-level (null (numberp foreign-level)))
+	   (funcall (if one-level #'= #'<=) (gnus-info-level info)
+		    (if (eq (cadr method-group-list) 'foreign)
+			foreign-level
+		      alevel)))
 	  (setcar (nthcdr 2 method-group-list)
 		  (cons info (nth 2 method-group-list)))
 	;; The group is inactive, so we nix out the number of unread articles.
-- 
2.7.0