[gnus git] branch master updated: m0-5-25-gc79df67 =1= (gnus-summary-limit-to-author): Use the current From address as the default.
Lars Magne Ingebrigtsen <[email protected]>
| Newsgroups | gmane.emacs.gnus.cvs |
|---|---|
| Message-ID | <[email protected]> |
via c79df675b50e367e228dde5f417fca33e60814d8 (commit)
from b0c2b6c2289b6a63bd9b00813ea32617e9103101 (commit)
- Log -----------------------------------------------------------------
commit c79df675b50e367e228dde5f417fca33e60814d8
Author: Lars Magne Ingebrigtsen <[email protected]>
Date: Sun Jun 10 22:05:00 2012 +0200
(gnus-summary-limit-to-author): Use the current From address as the default.
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3ee368a..9b25914 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
2012-06-10 Lars Magne Ingebrigtsen <[email protected]>
+ * gnus-sum.el (gnus-summary-limit-to-author): Use the current From
+ address as the default.
+
* nnfolder.el (nnfolder-save-buffer): Delete old versions silently. It
makes no sense to query the user about internal files.
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 7b14703..c75585d 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -8241,7 +8241,12 @@ If NOT-MATCHING, excluding articles that have authors that match a regexp."
(interactive
(list (read-string (if current-prefix-arg
"Exclude author (regexp): "
- "Limit to author (regexp): "))
+ "Limit to author (regexp): ")
+ (let ((header (gnus-summary-article-header)))
+ (if (not header)
+ ""
+ (car (mail-header-parse-address
+ (mail-header-from header))))))
current-prefix-arg))
(gnus-summary-limit-to-subject from "from" not-matching))
-----------------------------------------------------------------------
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/ChangeLog | 3 +++
lisp/gnus-sum.el | 7 ++++++-
2 files changed, 9 insertions(+), 1 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