X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fnnmh.el;h=d9f107de16d79339e9f08a0c3ac1b8ecbb4a78ec;hb=f30e92e077b73ab05a2d8f6a230fbcea61eb7493;hp=2c4dd682c08e7a420199bf57db90a0aac79b651b;hpb=bc18cfe81920a42560633c3ca94ceec55bf24782;p=elisp%2Fgnus.git-

diff --git a/lisp/nnmh.el b/lisp/nnmh.el
index 2c4dd68..d9f107d 100644
--- a/lisp/nnmh.el
+++ b/lisp/nnmh.el
@@ -1,8 +1,9 @@
 ;;; nnmh.el --- mhspool access for Gnus
-;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc.
+;; Copyright (C) 1995,96,97,98,99 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
-;; 	Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
+;;         Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
+;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Keywords: news, mail
 
 ;; This file is part of GNU Emacs.
@@ -110,9 +111,33 @@
 	(when large
 	  (nnheader-message 5 "nnmh: Receiving headers...done"))
 
-	(nnheader-fold-continuation-lines)
+        ;; (nnheader-fold-continuation-lines)
 	'headers))))
 
+(deffoo nnmh-retrieve-parsed-headers (articles
+				      dependencies
+				      &optional newsgroup server fetch-old
+				      force-new)
+  (save-excursion
+    (set-buffer nntp-server-buffer)
+    (let* ((file nil)
+	   (number (length articles))
+	   (large (and (numberp nnmail-large-newsgroup)
+		       (> number nnmail-large-newsgroup)))
+	   (count 0)
+	   (pathname-coding-system 'binary)
+	   (case-fold-search t)
+	   ;;beg
+	   article
+	   headers header id end ref lines chars ctype in-reply-to
+	   (cur (current-buffer)))
+      (nnmh-possibly-change-directory newsgroup server)
+      ;; We don't support fetching by Message-ID.
+      (nnheader-retrieve-headers-from-directory
+       articles nnmh-current-directory dependencies
+       fetch-old force-new large "nnmh")
+      )))
+
 (deffoo nnmh-open-server (server &optional defs)
   (nnoo-change-server 'nnmh server defs)
   (when (not (file-exists-p nnmh-directory))
@@ -294,8 +319,8 @@
 
 (deffoo nnmh-request-accept-article (group &optional server last noinsert)
   (nnmh-possibly-change-directory group server)
-  (if (or (not (equal group "queue"))
-	  (not (equal group "draft")))
+  (if (and (not (equal group "queue"))
+	   (not (equal group "draft")))
       (nnmail-check-syntax))
   (when nnmail-cache-accepted-message-ids
     (nnmail-cache-insert (nnmail-fetch-field "message-id")))