+2002-10-19 TSUCHIYA Masatoshi <tsuchiya@namazu.org>
+
+ * nnheader.el (nnheader-remove-body): Fix an error of detecting
+ boundary between headers and body.
+ * nnml.el (nnml-parse-head): Ditto.
+
2002-10-20 Lars Magne Ingebrigtsen <larsi@gnus.org>
* nnslashdot.el (nnslashdot-generate-active): Ignore any bogus
- entries.
+ entries.
* gnus-group.el (gnus-fetch-group): Allow an optional
specification of the articles to select.
- * gnus-srvr.el (gnus-server-prepare): Removed superfluous cdr.
+ * gnus-srvr.el (gnus-server-prepare): Removed superfluous cdr.
2002-10-20 Kai Gro\e,A_\e(Bjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE>
2002-10-18 Kai Gro\e,A_\e(Bjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE>
- * gnus-spec.el (gnus-make-format-preserve-properties)
+ * gnus-spec.el (gnus-make-format-preserve-properties)
(gnus-xmas-format, gnus-parse-simple-format): Preserve text
properties also on XEmacs. `gnus-xmas-format' is like format but
preserves text properties on XEmacs (though it only understands
(spam-display-buffer-contents): Remove.
(spam-bogofilter-score): Merge spam-display-buffer-contents.
-2002-10-17 Ted Zlatanov <tzz@lifelogs.com>
+2002-10-17 Ted Zlatanov <tzz@lifelogs.com>
* spam.el (spam-display-buffer-contents): New function.
(spam-bogofilter-score): use spam-display-buffer-contents, patch
(defun nnheader-remove-body ()
"Remove the body from an article in this current buffer."
(goto-char (point-min))
- (when (or (search-forward "\n\n" nil t)
- (search-forward "\n\r\n" nil t))
+ (when (re-search-forward "\n\r?\n" nil t)
(delete-region (point) (point-max))))
(defun nnheader-set-temp-buffer (name &optional noerase)
(unless (zerop (buffer-size))
(narrow-to-region
(goto-char (point-min))
- (if (search-forward "\n\n" nil t)
+ (if (re-search-forward "\n\r?\n" nil t)
(1- (point))
- (if (search-forward "\n\r\n" nil t)
- (- (point) 2)
- (point-max)))))
+ (point-max))))
(let ((headers (nnheader-parse-naked-head)))
(mail-header-set-chars headers chars)
(mail-header-set-number headers number)