[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