[gnus git] branch master updated: n0-13-131-g8153776 =6= Ignore .rej files. ; (Various Commands): Document format specs in the ellipsis. ; * gnus-group.el (gnus-group-list-ticked): New function. (gnus-group-make-menu-bar): Provide a menu entry for it. (gnus-group-list-map): Provide a binding for it. ; * shr.el (shr-visit-file): New command. ; (nnimap-fetch-inbox): Rewrite slightly last patch. ; (nnimap-fetch-inbox): Don't download bodies on ver4-capable servers.
Lars Magne Ingebrigtsen <[email protected]>
| Newsgroups | gmane.emacs.gnus.cvs |
|---|---|
| Message-ID | <[email protected]> |
via 815377671559a047a77ff4788596ee3b5c253e7e (commit)
via 79245215ffc1bbf3ad1f6493ed5c5c2b9ba2f657 (commit)
via 3077806b1b87c2ddaac3997d90b73826af4a425e (commit)
via 7d572bd284be447a963c50800a8d397c844cb638 (commit)
via 2611d9ab9b3a32d1757a9304cdc53f3d4ca707e8 (commit)
via 7195f4697b1745a13d897c9505cb8cb1165bbc79 (commit)
from 1fffc6fafc4029ba2e8a9f0f3c63e610276019fe (commit)
- Log -----------------------------------------------------------------
commit 815377671559a047a77ff4788596ee3b5c253e7e
Author: Lars Magne Ingebrigtsen <[email protected]>
Date: Thu Mar 17 18:56:35 2011 +0100
Ignore .rej files.
diff --git a/.gitignore b/.gitignore
index ca21195..397d387 100644
--- a/.gitignore
+++ b/.gitignore
@@ -17,6 +17,7 @@ contrib/on-loginfo
contrib/request-assign.future
etc/Makefile
lisp/*.elc
+lisp/*.rej
lisp/Makefile
lisp/TAGS
lisp/auto-autoloads.el
commit 79245215ffc1bbf3ad1f6493ed5c5c2b9ba2f657
Author: Lars Magne Ingebrigtsen <[email protected]>
Date: Thu Mar 17 18:56:24 2011 +0100
(Various Commands): Document format specs in the ellipsis.
diff --git a/texi/ChangeLog b/texi/ChangeLog
index 39b5ad7..ac6e196 100644
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,8 @@
+2011-03-15 Lars Magne Ingebrigtsen <[email protected]>
+
+ * message.texi (Various Commands): Document format specs in the
+ ellipsis.
+
2011-03-15 Antoine Levitt <[email protected]>
* message.texi (Insertion Variables): Document message-cite-style.
diff --git a/texi/message.texi b/texi/message.texi
index aea4c52..d8cc427 100644
--- a/texi/message.texi
+++ b/texi/message.texi
@@ -1202,6 +1202,10 @@ The text is killed and replaced with the contents of the variable
@code{message-elide-ellipsis}. The default value is to use an ellipsis
(@samp{[...]}).
+This is a format-spec string, and you can use @samp{%l} to say how
+many lines were removed, and @samp{%c} to say how many characters were
+removed.
+
@item C-c M-k
@kindex C-c M-k
@findex message-kill-address
commit 3077806b1b87c2ddaac3997d90b73826af4a425e
Author: Antoine Levitt <[email protected]>
Date: Thu Mar 17 18:55:42 2011 +0100
* gnus-group.el (gnus-group-list-ticked): New function.
(gnus-group-make-menu-bar): Provide a menu entry for it.
(gnus-group-list-map): Provide a binding for it.
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 43ca066..e4463ba 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2011-03-17 Antoine Levitt <[email protected]>
+
+ * gnus-group.el (gnus-group-list-ticked): New function.
+ (gnus-group-make-menu-bar): Provide a menu entry for it.
+ (gnus-group-list-map): Provide a binding for it.
+
2011-03-17 Lars Magne Ingebrigtsen <[email protected]>
* shr.el (shr-visit-file): New command.
diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index e928811..c265538 100644
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -697,7 +697,8 @@ simple manner.")
"M" gnus-group-list-all-matching
"l" gnus-group-list-level
"c" gnus-group-list-cached
- "?" gnus-group-list-dormant)
+ "?" gnus-group-list-dormant
+ "!" gnus-group-list-ticked)
(gnus-define-keys (gnus-group-list-limit-map "/" gnus-group-list-map)
"k" gnus-group-list-limit
@@ -849,7 +850,8 @@ simple manner.")
["List all groups matching..." gnus-group-list-all-matching t]
["List active file" gnus-group-list-active t]
["List groups with cached" gnus-group-list-cached t]
- ["List groups with dormant" gnus-group-list-dormant t])
+ ["List groups with dormant" gnus-group-list-dormant t]
+ ["List groups with ticked" gnus-group-list-ticked t])
("Sort"
["Default sort" gnus-group-sort-groups t]
["Sort by method" gnus-group-sort-groups-by-method t]
@@ -4536,6 +4538,28 @@ This command may read the active file."
(goto-char (point-min))
(gnus-group-position-point))
+(defun gnus-group-list-ticked (level &optional lowest)
+ "List all groups with ticked articles.
+If the prefix LEVEL is non-nil, it should be a number that says which
+level to cut off listing groups.
+If LOWEST, don't list groups with level lower than LOWEST.
+
+This command may read the active file."
+ (interactive "P")
+ (when level
+ (setq level (prefix-numeric-value level)))
+ (when (or (not level) (>= level gnus-level-zombie))
+ (gnus-cache-open))
+ (funcall gnus-group-prepare-function
+ (or level gnus-level-subscribed)
+ #'(lambda (info)
+ (let ((marks (gnus-info-marks info)))
+ (assq 'tick marks)))
+ lowest
+ 'ignore)
+ (goto-char (point-min))
+ (gnus-group-position-point))
+
(defun gnus-group-listed-groups ()
"Return a list of listed groups."
(let (point groups)
commit 7d572bd284be447a963c50800a8d397c844cb638
Author: Lars Magne Ingebrigtsen <[email protected]>
Date: Thu Mar 17 17:45:28 2011 +0100
* shr.el (shr-visit-file): New command.
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9c1b883..43ca066 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
2011-03-17 Lars Magne Ingebrigtsen <[email protected]>
+ * shr.el (shr-visit-file): New command.
+
* nnimap.el (nnimap-fetch-inbox): Rewrite slightly last patch.
2011-03-17 Bjørn Mork <[email protected]>
diff --git a/lisp/shr.el b/lisp/shr.el
index c9c5bd5..113137a 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -113,6 +113,15 @@ cid: URL as the argument.")
;; Public functions and commands.
+(defun shr-visit-file (file)
+ (interactive "fHTML file name: ")
+ (pop-to-buffer "*html*")
+ (erase-buffer)
+ (shr-insert-document
+ (with-temp-buffer
+ (insert-file-contents file)
+ (libxml-parse-html-region (point-min) (point-max)))))
+
;;;###autoload
(defun shr-insert-document (dom)
(setq shr-content-cache nil)
commit 2611d9ab9b3a32d1757a9304cdc53f3d4ca707e8
Author: Lars Magne Ingebrigtsen <[email protected]>
Date: Thu Mar 17 17:45:14 2011 +0100
(nnimap-fetch-inbox): Rewrite slightly last patch.
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1b4fc6b..9c1b883 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-03-17 Lars Magne Ingebrigtsen <[email protected]>
+
+ * nnimap.el (nnimap-fetch-inbox): Rewrite slightly last patch.
+
2011-03-17 Bjørn Mork <[email protected]>
* nnimap.el (nnimap-fetch-inbox): Don't download bodies on ver4-capable
diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 46c56d9..bcbe7b6 100644
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -1764,10 +1764,12 @@ textual parts.")
(if (nnimap-ver4-p)
"BODY.PEEK"
"RFC822.PEEK"))
- (if nnimap-split-download-body-default
- "[]"
- (if (nnimap-ver4-p)
- "[HEADER]"
+ (cond
+ (nnimap-split-download-body-default
+ "[]")
+ ((nnimap-ver4-p)
+ "[HEADER]")
+ (t
"[1]"))))
t))
commit 7195f4697b1745a13d897c9505cb8cb1165bbc79
Author: Bjørn Mork <[email protected]>
Date: Thu Mar 17 17:44:21 2011 +0100
(nnimap-fetch-inbox): Don't download bodies on ver4-capable servers.
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 56e0152..1b4fc6b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-03-17 Bjørn Mork <[email protected]>
+
+ * nnimap.el (nnimap-fetch-inbox): Don't download bodies on ver4-capable
+ servers.
+
2011-03-16 Julien Danjou <[email protected]>
* mm-uu.el (mm-uu-dissect-text-parts): Only dissect handle that are
diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index e0804f8..46c56d9 100644
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -1762,11 +1762,13 @@ textual parts.")
(format "(UID %s%s)"
(format
(if (nnimap-ver4-p)
- "BODY.PEEK[HEADER] BODY.PEEK"
+ "BODY.PEEK"
"RFC822.PEEK"))
(if nnimap-split-download-body-default
"[]"
- "[1]")))
+ (if (nnimap-ver4-p)
+ "[HEADER]"
+ "[1]"))))
t))
(defun nnimap-split-incoming-mail ()
-----------------------------------------------------------------------
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:
.gitignore | 1 +
lisp/ChangeLog | 17 +++++++++++++++++
lisp/gnus-group.el | 28 ++++++++++++++++++++++++++--
lisp/nnimap.el | 12 ++++++++----
lisp/shr.el | 9 +++++++++
texi/ChangeLog | 5 +++++
texi/message.texi | 4 ++++
7 files changed, 70 insertions(+), 6 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