Re: gnus-nov-is-evil => t なとき nnml グループのサマリ情報が取得できない

>>>>> In [semi-gnus-ja : No.20660]
>>>>>	Hideyuki SHIRAI () wrote:

>  Emacs 21 

> # Mule-ja  Meadow 
> # 

^^;;

> DOS  CRLF 

> 
>  OS  EOL TYPE 
> 


 mule-jp  ding 


 nnml ?

(defun nnheader-insert-head (file)
  "Insert the head of the article."
  (when (file-exists-p file)
    (if (eq nnheader-max-head-length t)
	;; Just read the entire file.
	(let ((start (point))
	      (coding-system-for-read 'binary))
	  (mm-insert-file-contents filename)
	  (when (mm-coding-system-p nnheader-file-coding-system)
	    (decode-coding-region start (point-max)
				  nnheader-file-coding-system)))
      ;; Read a certain blocks until we find a separator.
      (let ((beg 0)
	    (start (point))
	    (coding-system-for-read 'binary))
	(while (and (eq nnheader-head-chop-length
			(nth 1 (mm-insert-file-contents
				file nil beg
				(incf beg nnheader-head-chop-length))))
		    (prog1 (not (re-search-forward "\n\r?\n" nil t))
		      (goto-char (point-max)))
		    (or (null nnheader-max-head-length)
			(< beg nnheader-max-head-length))))
	(when (mm-coding-system-p nnheader-file-coding-system)
	  (decode-coding-region start (point-max)
				nnheader-file-coding-system))))
    t))

NOV  nnmh 
 nnmh  nnml 
?

;;  nnmh-get-new-mail  nil 
--