[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r101613: nndraft.el (nndraft-retrieve
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r101613: nndraft.el (nndraft-retrieve-headers): Insert Lines and Chars headers for prettier summary display. |
Date: |
Sat, 25 Sep 2010 15:07:55 +0000 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 101613
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sat 2010-09-25 15:07:55 +0000
message:
nndraft.el (nndraft-retrieve-headers): Insert Lines and Chars headers for
prettier summary display.
modified:
lisp/gnus/ChangeLog
lisp/gnus/nndraft.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2010-09-25 14:24:54 +0000
+++ b/lisp/gnus/ChangeLog 2010-09-25 15:07:55 +0000
@@ -1,3 +1,8 @@
+2010-09-25 Lars Magne Ingebrigtsen <address@hidden>
+
+ * nndraft.el (nndraft-retrieve-headers): Insert Lines and Chars headers
+ for prettier summary display.
+
2010-09-25 Andrew Cohen <address@hidden> (tiny change)
* nnir.el (nnir-run-imap): Allow sending IMAP search patterns
=== modified file 'lisp/gnus/nndraft.el'
--- a/lisp/gnus/nndraft.el 2010-09-18 23:36:29 +0000
+++ b/lisp/gnus/nndraft.el 2010-09-25 15:07:55 +0000
@@ -79,7 +79,7 @@
(nndraft-possibly-change-group group)
(with-current-buffer nntp-server-buffer
(erase-buffer)
- (let* (article)
+ (let (article lines chars)
;; We don't support fetching by Message-ID.
(if (stringp (car articles))
'headers
@@ -91,9 +91,12 @@
(if (search-forward "\n\n" nil t)
(forward-line -1)
(goto-char (point-max)))
+ (setq lines (count-lines (point) (point-max))
+ chars (- (point-max) (point)))
(delete-region (point) (point-max))
(goto-char (point-min))
(insert (format "221 %d Article retrieved.\n" article))
+ (insert (format "Lines: %d\nChars: %d\n" lines chars))
(widen)
(goto-char (point-max))
(insert ".\n")))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r101613: nndraft.el (nndraft-retrieve-headers): Insert Lines and Chars headers for prettier summary display.,
Katsumi Yamaoka <=