diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2010-09-25 15:07:55 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-09-25 15:07:55 +0000 |
| commit | 758845a0bd4920d46dbbbe6e4dcb46498cb25ef1 (patch) | |
| tree | 18d69ec6bd31dd20bad756102c44f040e45decd8 /lisp | |
| parent | cd178df250c91b24f576a6e7904d70ea1c5c81c1 (diff) | |
| download | emacs-758845a0bd4920d46dbbbe6e4dcb46498cb25ef1.tar.gz | |
nndraft.el (nndraft-retrieve-headers): Insert Lines and Chars headers for prettier summary display.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/gnus/nndraft.el | 5 |
2 files changed, 9 insertions, 1 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index db1c287e3e5..3bfb4119959 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2010-09-25 Lars Magne Ingebrigtsen <larsi@gnus.org> + + * nndraft.el (nndraft-retrieve-headers): Insert Lines and Chars headers + for prettier summary display. + 2010-09-25 Andrew Cohen <cohen@andy.bu.edu> (tiny change) * nnir.el (nnir-run-imap): Allow sending IMAP search patterns diff --git a/lisp/gnus/nndraft.el b/lisp/gnus/nndraft.el index 157c65da8d1..313675c2fac 100644 --- a/lisp/gnus/nndraft.el +++ b/lisp/gnus/nndraft.el @@ -79,7 +79,7 @@ are generated if and only if they are also in `message-draft-headers'.") (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 @@ are generated if and only if they are also in `message-draft-headers'.") (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"))) |