2001-12-07 14:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-sum.el (gnus-summary-show-article): Recount lines if not exist.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c6209ee..cb25d35 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-12-07 14:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-sum.el (gnus-summary-show-article): Recount lines if not exist.
+
 2001-12-07 10:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * nnwfm.el (nnwfm-create-mapping): Use gnus-url-unhex-string.

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 9936fb0..62b75df 100644 (file)
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -232,7 +232,7 @@ Modify to suit your needs."))
     (when (featurep 'base64)
       (setq files (delete "base64.el" files)))
     (condition-case code
-       (require 'w3-forms)
+       (require 'w3-parse)
       (error
        (message "No w3: %s %s" code (locate-library "w3-parse"))
        (dolist (file '("nnultimate.el" "webmail.el" "nnwfm.el"))

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 5c8a6a7..13f70c4 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -7895,16 +7895,22 @@ without any article massaging functions being run."
          (gnus-newsgroup-ignored-charsets 'gnus-all))
       (gnus-summary-select-article nil 'force)
       (let ((deps gnus-newsgroup-dependencies)
-           head header)
+           head header lines)
        (save-excursion
          (set-buffer gnus-original-article-buffer)
          (save-restriction
            (message-narrow-to-head)
-           (setq head (buffer-string)))
+           (setq head (buffer-string))
+           (goto-char (point-min))
+           (unless (re-search-forward "^lines:[ \t]\\([0-9]+\\)" nil t)
+             (goto-char (point-max))
+             (widen)
+             (setq lines (1- (count-lines (point) (point-max))))))
          (with-temp-buffer
            (insert (format "211 %d Article retrieved.\n"
                            (cdr gnus-article-current)))
            (insert head)
+           (if lines (insert (format "Lines: %d\n" lines)))
            (insert ".\n")
            (let ((nntp-server-buffer (current-buffer)))
              (setq header (car (gnus-get-newsgroup-headers deps t))))))