[gnus git] branch master updated: m0-13-25-ga7fb7b6 =2= Remove unused let variables ; Check if group names are already strings

Eric Abrahamsen <[email protected]> Wed, 08 Jul 2015 06:26:07 +0200
Newsgroups gmane.emacs.gnus.cvs
Message-ID <[email protected]>
       via  a7fb7b68543f38dc4cfd80f56612d2399e349018 (commit)
       via  8c77ec1afc77f1597699037260e03b1f50a5cb84 (commit)
      from  f4be0e4996be6b51ae92c814e078b6aea5fcb153 (commit)


- Log -----------------------------------------------------------------
commit a7fb7b68543f38dc4cfd80f56612d2399e349018
Author: Eric Abrahamsen <[email protected]>
Date:   Tue Jul 7 11:08:35 2015 +0800

    Remove unused let variables
    
    * lisp/nnimap.el (nnimap-request-group): Variables are not used.

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 208fd07..40610e1 100644
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -803,7 +803,7 @@ textual parts.")
 		     nil
 		   group)
 		 server))
-	articles active marks high low)
+	active)
     (with-current-buffer nntp-server-buffer
       (when result
 	(when (or (not dont-check)

commit 8c77ec1afc77f1597699037260e03b1f50a5cb84
Author: Eric Abrahamsen <[email protected]>
Date:   Tue Jul 7 11:01:38 2015 +0800

    Check if group names are already strings
    
    * lisp/gnus-group.el (gnus-group-group-name): The group name may
      already be a string.
    
    Specifically, in the group list reached from the *Server* buffer, the
    'gnus-group text property returns a string. Everywhere else it returns
    a symbol.

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index dbeada2..c6cc38f 100644
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -1814,7 +1814,9 @@ already.  If INFO-UNCHANGED is non-nil, dribble buffer is not updated."
   "Get the name of the newsgroup on the current line."
   (let ((group (get-text-property (point-at-bol) 'gnus-group)))
     (when group
-      (symbol-name group))))
+      (if (stringp group)
+	  group
+	(symbol-name group)))))
 
 (defun gnus-group-group-level ()
   "Get the level of the newsgroup on the current line."

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/gnus-group.el |    4 +++-
 lisp/nnimap.el     |    2 +-
 2 files changed, 4 insertions(+), 2 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project