From: ichikawa <ichikawa>
Date: Sun, 21 Feb 1999 07:18:22 +0000 (+0000)
Subject: 	* lisp/gnus.el (gnus-version-number): Update to 6.10.059.
X-Git-Tag: t-gnus-6_10_059-00~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=65006b7acb318bc9ae683abc92b3c88b5cd43470;p=elisp%2Fgnus.git-

	* lisp/gnus.el (gnus-version-number): Update to 6.10.059.
	(gnus-revision-number): Fresh start from 00.

	* Sync up with Pterodactyl Gnus v0.77.
---

diff --git a/ChangeLog b/ChangeLog
index 56bfd10..396d154 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+1999-02-21  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
+
+	* lisp/gnus.el (gnus-version-number): Update to 6.10.059.
+	(gnus-revision-number): Fresh start from 00.
+
+	* Sync up with Pterodactyl Gnus v0.77.
+
 1999-02-18  Tsukamoto Tetsuo  <czkmt@remus.dti.ne.jp>
 
 	* lisp/gnus.el (gnus-revision-number): Increment to 09.
diff --git a/README.ichikawa b/README.ichikawa
index c5ced82..90ccaaa 100644
--- a/README.ichikawa
+++ b/README.ichikawa
@@ -31,6 +31,6 @@ NEWS:
 * T-gnus 6.8.17 is the last version based on Gnus v5.6.
   After this , T-gnus 6.10 - this is based on Pterodactyl Gnus.
 
-  The latest T-gnus is T-gnus 6.10.057 (Based on pgnus-0.75).
+  The latest T-gnus is T-gnus 6.10.058 (Based on pgnus-0.77).
   It requires SEMI/WEMI-1.12/1.13, the latest FLIM-1.12, and the latest
   APEL (9.12 or later).
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c9d1a85..b5a4bcd 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,92 @@
+Sat Feb 20 21:34:28 1999  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+
+	* gnus.el: Pterodactyl Gnus v0.77 is released.
+
+1999-02-20 17:32:17  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* gnus-art.el (gnus-displaying-mime): New variable.
+	(article-narrow-to-head): New function.
+
+	* mail-source.el (mail-source-fetch-pop): Include pre/postscript. 
+	Default to pop instead of pop3.
+
+1999-02-19 16:16:04  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* gnus-art.el (article-hide-pgp): Goto body.
+
+	* gnus-uu.el (gnus-uu-digest-mail-forward): Don't kill buffer. 
+
+	* gnus-cite.el: Don't use goto-line.
+
+	* gnus-art.el (gnus-article-treat-html): Removed.
+	(gnus-treat-article): Save restriction.
+
+1999-02-17  Per Abrahamsen  <abraham@dina.kvl.dk>
+
+	* message.el (message-send-mail): Don't untabify.
+	(message-mode): Don't use tabs for indentation.
+
+1999-02-19 14:54:13  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* message.el (message-send-mail): Don't untabify.
+
+	* nnml.el (nnml-save-mail): Typo fix.
+
+1999-02-19  Per Abrahamsen  <abraham@dina.kvl.dk>
+
+	* message.el (message-cite-function): Add
+	`message-cite-original-without-signature' customization option.
+
+1999-02-18  Per Abrahamsen  <abraham@dina.kvl.dk>
+
+	* nnmail.el (nnmail-fix-eudora-headers): Mark as option to
+	`nnmail-prepare-incoming-header-hook'.
+
+1999-02-19 14:41:43  Justin Sheehy  <justin@linus.mitre.org>
+
+	* gnus-util.el (gnus-make-sort-function-1): Typo fix.
+
+1999-02-19 14:40:37  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* gnus-group.el (gnus-group-get-new-news): Require nnmail. 
+
+1999-02-18  Michael Cook  <cook@sightpath.com>
+
+	* Recognize Microsoft Outlook's cite attribution conventions.
+
+1999-02-19 14:33:11  James H. Cloos, Jr.  <cloos@jhcloos.com>
+
+	* gnus-sum.el: Bind M.
+
+1999-02-19 14:31:29  Neil Crellin  <neilc@wallaby.cc>
+
+	* mail-source.el (mail-source-fetch-pop): Bind pop3-port.
+
+1999-02-15  Didier Verna  <verna@inf.enst.fr>
+
+	* gnus-picon.el (gnus-group-display-picons): ensures that
+	`article-goto-body' really goes to the article body.
+
+1999-02-19 12:57:19  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* mm-view.el (mm-inline-text): Bind url-standalone-mode.
+
+	* gnus-msg.el (gnus-summary-mail-forward): Create unique names.
+
+	* mm-view.el (mm-view-message): Enable multibyte.
+
+1999-02-11 18:37:15  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* nnmail.el (nnmail-get-new-mail): Message later.
+
+	* mm-util.el (mm-find-charset-region): Revert to checking
+	multibyte.
+
+1999-02-11  Matt Pharr  <mmp@graphics.stanford.edu>
+
+      * gnus-msg.el (gnus-bug): Encode environment info as a MIME
+      attachment. 
+
 Thu Feb 11 04:58:51 1999  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
 	* gnus.el: Pterodactyl Gnus v0.76 is released.
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 8798aa5..d108307 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1004,7 +1004,6 @@ always hide."
 		(inhibit-point-motion-hooks t)
 		beg)
 	    ;; First we narrow to just the headers.
-	    (widen)
 	    (goto-char (point-min))
 	    ;; Hide any "From " lines at the beginning of (mail) articles.
 	    (while (looking-at "From ")
@@ -1059,7 +1058,7 @@ always hide."
 	      (list gnus-boring-article-headers)
 	      (inhibit-point-motion-hooks t)
 	      elem)
-	  (nnheader-narrow-to-headers)
+	  (article-narrow-to-head)
 	  (while list
 	    (setq elem (pop list))
 	    (goto-char (point-min))
@@ -1146,7 +1145,7 @@ always hide."
 	column)
     (save-excursion
       (save-restriction
-	(message-narrow-to-head)
+	(article-narrow-to-head)
 	(while (not (eobp))
 	  (cond
 	   ((< (setq column (- (gnus-point-at-eol) (point)))
@@ -1236,7 +1235,6 @@ MAP is an alist where the elements are on the form (\"from\" \"to\")."
     (let ((buffer-read-only nil)
 	  (width (window-width (get-buffer-window (current-buffer)))))
       (save-restriction
-	(widen)
 	(article-goto-body)
 	(let ((adaptive-fill-mode nil))
 	  (while (not (eobp))
@@ -1299,7 +1297,7 @@ MAP is an alist where the elements are on the form (\"from\" \"to\")."
 	  (case-fold-search t)
 	  from last)
       (save-restriction
-	(message-narrow-to-head)
+	(article-narrow-to-head)
 	(goto-char (point-min))
 	(setq from (message-fetch-field "from"))
 	(goto-char (point-min))
@@ -1355,7 +1353,7 @@ If PROMPT (the prefix), prompt for a coding system to use."
   (interactive "P")
   (save-excursion
     (save-restriction
-      (message-narrow-to-head)
+      (article-narrow-to-head)
       (let* ((inhibit-point-motion-hooks t)
 	     (case-fold-search t)
 	     (ct (message-fetch-field "Content-Type" t))
@@ -1414,37 +1412,37 @@ or not."
   "Remove any PGP headers and signatures in the current article."
   (interactive)
   (save-excursion
-    (let ((inhibit-point-motion-hooks t)
-	  buffer-read-only beg end)
-      (widen)
-      (goto-char (point-min))
-      ;; Hide the "header".
-      (when (search-forward "\n-----BEGIN PGP SIGNED MESSAGE-----\n" nil t)
-	(push 'pgp gnus-article-wash-types)
-	(delete-region (1+ (match-beginning 0)) (match-end 0))
-	;; PGP 5 and GNU PG add a `Hash: <>' comment, hide that too
-	(when (looking-at "Hash:.*$")
-	  (delete-region (point) (1+ (gnus-point-at-eol))))
-	(setq beg (point))
-	;; Hide the actual signature.
-	(and (search-forward "\n-----BEGIN PGP SIGNATURE-----\n" nil t)
-	     (setq end (1+ (match-beginning 0)))
-	     (delete-region
-	      end
-	      (if (search-forward "\n-----END PGP SIGNATURE-----\n" nil t)
-		  (match-end 0)
-		;; Perhaps we shouldn't hide to the end of the buffer
-		;; if there is no end to the signature?
-		(point-max))))
-	;; Hide "- " PGP quotation markers.
-	(when (and beg end)
-	  (narrow-to-region beg end)
-	  (goto-char (point-min))
-	  (while (re-search-forward "^- " nil t)
-	    (delete-region
-	     (match-beginning 0) (match-end 0)))
-	  (widen))
-	(gnus-run-hooks 'gnus-article-hide-pgp-hook)))))
+    (save-restriction
+      (let ((inhibit-point-motion-hooks t)
+	    buffer-read-only beg end)
+	(article-goto-body)
+	;; Hide the "header".
+	(when (re-search-forward "^-----BEGIN PGP SIGNED MESSAGE-----\n" nil t)
+	  (push 'pgp gnus-article-wash-types)
+	  (delete-region (match-beginning 0) (match-end 0))
+	  ;; PGP 5 and GNU PG add a `Hash: <>' comment, hide that too
+	  (when (looking-at "Hash:.*$")
+	    (delete-region (point) (1+ (gnus-point-at-eol))))
+	  (setq beg (point))
+	  ;; Hide the actual signature.
+	  (and (search-forward "\n-----BEGIN PGP SIGNATURE-----\n" nil t)
+	       (setq end (1+ (match-beginning 0)))
+	       (delete-region
+		end
+		(if (search-forward "\n-----END PGP SIGNATURE-----\n" nil t)
+		    (match-end 0)
+		  ;; Perhaps we shouldn't hide to the end of the buffer
+		  ;; if there is no end to the signature?
+		  (point-max))))
+	  ;; Hide "- " PGP quotation markers.
+	  (when (and beg end)
+	    (narrow-to-region beg end)
+	    (goto-char (point-min))
+	    (while (re-search-forward "^- " nil t)
+	      (delete-region
+	       (match-beginning 0) (match-end 0)))
+	    (widen))
+	  (gnus-run-hooks 'gnus-article-hide-pgp-hook))))))
 
 (defun article-hide-pem (&optional arg)
   "Toggle hiding of any PEM headers and signatures in the current article.
@@ -1454,7 +1452,6 @@ always hide."
   (unless (gnus-article-check-hidden-text 'pem arg)
     (save-excursion
       (let (buffer-read-only end)
-	(widen)
 	(goto-char (point-min))
 	;; Hide the horrendously ugly "header".
 	(when (and (search-forward
@@ -1479,21 +1476,21 @@ always hide."
   (interactive)
   (save-excursion
     (save-restriction
-    (let ((inhibit-point-motion-hooks t)
-	  (banner (gnus-group-get-parameter gnus-newsgroup-name 'banner))
-	  (gnus-signature-limit nil)
-	  buffer-read-only beg end)
-      (when banner
-	(article-goto-body)
-	(cond
-	 ((eq banner 'signature)
-	  (when (gnus-article-narrow-to-signature)
-	    (widen)
-	    (forward-line -1)
-	    (delete-region (point) (point-max))))
-	 ((stringp banner)
-	  (while (re-search-forward banner nil t)
-	    (delete-region (match-beginning 0) (match-end 0))))))))))
+      (let ((inhibit-point-motion-hooks t)
+	    (banner (gnus-group-get-parameter gnus-newsgroup-name 'banner))
+	    (gnus-signature-limit nil)
+	    buffer-read-only beg end)
+	(when banner
+	  (article-goto-body)
+	  (cond
+	   ((eq banner 'signature)
+	    (when (gnus-article-narrow-to-signature)
+	      (widen)
+	      (forward-line -1)
+	      (delete-region (point) (point-max))))
+	   ((stringp banner)
+	    (while (re-search-forward banner nil t)
+	      (delete-region (match-beginning 0) (match-end 0))))))))))
 
 (defun article-hide-signature (&optional arg)
   "Hide the signature in the current article.
@@ -1519,6 +1516,16 @@ always hide."
 		    (looking-at "[ \t]*$"))
 	  (gnus-delete-line))))))
 
+(defun article-narrow-to-head ()
+  "Narrow the buffer to the head of the message.
+Point is left at the beginning of the narrowed-to region."
+  (narrow-to-region
+   (goto-char (point-min))
+   (if (search-forward "\n\n" nil 1)
+       (1- (point))
+     (point-max)))
+  (goto-char (point-min)))
+
 (defun article-goto-body ()
   "Place point at the start of the body."
   (goto-char (point-min))
@@ -1591,7 +1598,6 @@ always hide."
 
 (defun gnus-article-narrow-to-signature ()
   "Narrow to the signature; return t if a signature is found, else nil."
-  (widen)
   (let ((inhibit-point-motion-hooks t))
     (when (gnus-article-search-signature)
       (forward-line 1)
@@ -1632,38 +1638,6 @@ Put point at the beginning of the signature separator."
       (goto-char cur)
       nil)))
 
-(eval-and-compile
-  (autoload 'w3-display "w3-parse")
-  (autoload 'w3-do-setup "w3" "" t)
-  (autoload 'w3-region "w3-display" "" t))
-
-(defun gnus-article-treat-html ()
-  "Render HTML."
-  (interactive)
-  (let ((cbuf (current-buffer)))
-    (set-buffer gnus-article-buffer)
-    (let (buf buffer-read-only b e)
-      (w3-do-setup)
-      (goto-char (point-min))
-      (narrow-to-region
-       (if (search-forward "\n\n" nil t)
-	   (setq b (point))
-	 (point-max))
-       (setq e (point-max)))
-      (with-temp-buffer
-	(insert-buffer-substring gnus-article-buffer b e)
-	(require 'url)
-	(save-window-excursion
-	  (w3-region (point-min) (point-max))
-	  (setq buf (buffer-substring-no-properties (point-min) (point-max)))))
-      (when buf
-	(delete-region (point-min) (point-max))
-	(insert buf))
-      (widen)
-      (goto-char (point-min))
-      (set-window-start (get-buffer-window (current-buffer)) (point-min))
-      (set-buffer cbuf))))
-
 (defun gnus-article-hidden-arg ()
   "Return the current prefix arg as a number, or 0 if no prefix."
   (list (if current-prefix-arg
@@ -1676,7 +1650,6 @@ Arg can be nil or a number.  Nil and positive means hide, negative
 means show, 0 means toggle."
   (save-excursion
     (save-restriction
-      (widen)
       (let ((hide (gnus-article-hidden-text-p type)))
 	(cond
 	 ((or (null arg)
@@ -1747,7 +1720,7 @@ how much time has lapsed since DATE."
     (when (and date (not (string= date "")))
       (save-excursion
 	(save-restriction
-	  (nnheader-narrow-to-headers)
+	  (article-narrow-to-head)
 	  (let ((buffer-read-only nil))
 	    ;; Delete any old Date headers.
 	    (if (re-search-forward date-regexp nil t)
@@ -2979,6 +2952,8 @@ If ALL-HEADERS is non-nil, no headers are hidden."
   (goto-char (widget-get elems :from))
   (gnus-article-press-button))
 
+(defvar gnus-displaying-mime nil)
+
 (defun gnus-display-mime (&optional ihandles)
   "Display the MIME parts."
   (save-excursion
@@ -2992,7 +2967,8 @@ If ALL-HEADERS is non-nil, no headers are hidden."
 	  (set-window-point window point)))
       (let* ((handles (or ihandles (mm-dissect-buffer) (mm-uu-dissect)))
 	     buffer-read-only handle name type b e display)
-	(unless ihandles
+	(when (and (not ihandles)
+		   (not gnus-displaying-mime))
 	  ;; Top-level call; we clean up.
 	  (mm-destroy-parts gnus-article-mime-handles)
 	  (setq gnus-article-mime-handles handles
@@ -3004,15 +2980,18 @@ If ALL-HEADERS is non-nil, no headers are hidden."
 		 (or (not (stringp (car handles)))
 		     (cdr handles)))
 	    (progn
-	      (unless ihandles
+	      (when (and (not ihandles)
+			 (not gnus-displaying-mime))
 		;; Clean up for mime parts.
 		(article-goto-body)
 		(delete-region (point) (point-max)))
-	      (gnus-mime-display-part handles))
+	      (let ((gnus-displaying-mime t))
+		(gnus-mime-display-part handles)))
 	  (save-restriction
 	    (article-goto-body)
 	    (narrow-to-region (point) (point-max))
-	    (gnus-treat-article nil 1 1)))
+	    (gnus-treat-article nil 1 1)
+	    (widen)))
 	;; Highlight the headers.
 	(save-excursion
 	  (save-restriction
@@ -3259,7 +3238,6 @@ If given a numerical ARG, move forward ARG pages."
   (save-excursion
     (set-buffer gnus-article-buffer)
     (goto-char (point-min))
-    (widen)
     ;; Remove any old next/prev buttons.
     (when (gnus-visual-p 'page-marker)
       (let ((buffer-read-only nil))
@@ -4062,7 +4040,7 @@ do the highlighting.  See the documentation for those functions."
 	    (case-fold-search t)
 	    (inhibit-point-motion-hooks t)
 	    entry regexp header-face field-face from hpoints fpoints)
-	(message-narrow-to-head)
+	(article-narrow-to-head)
 	(while (setq entry (pop alist))
 	  (goto-char (point-min))
 	  (setq regexp (concat "^\\("
@@ -4163,38 +4141,38 @@ specified by `gnus-button-alist'."
   (interactive)
   (save-excursion
     (set-buffer gnus-article-buffer)
-    (let ((buffer-read-only nil)
-	  (inhibit-point-motion-hooks t)
-	  (case-fold-search t)
-	  (alist gnus-header-button-alist)
-	  entry beg end)
-      (nnheader-narrow-to-headers)
-      (while alist
-	;; Each alist entry.
-	(setq entry (car alist)
-	      alist (cdr alist))
-	(goto-char (point-min))
-	(while (re-search-forward (car entry) nil t)
-	  ;; Each header matching the entry.
-	  (setq beg (match-beginning 0))
-	  (setq end (or (and (re-search-forward "^[^ \t]" nil t)
-			     (match-beginning 0))
-			(point-max)))
-	  (goto-char beg)
-	  (while (re-search-forward (nth 1 entry) end t)
-	    ;; Each match within a header.
-	    (let* ((entry (cdr entry))
-		   (start (match-beginning (nth 1 entry)))
-		   (end (match-end (nth 1 entry)))
-		   (form (nth 2 entry)))
-	      (goto-char (match-end 0))
-	      (when (eval form)
-		(gnus-article-add-button
-		 start end (nth 3 entry)
-		 (buffer-substring (match-beginning (nth 4 entry))
-				   (match-end (nth 4 entry)))))))
-	  (goto-char end))))
-    (widen)))
+    (save-restriction
+      (let ((buffer-read-only nil)
+	    (inhibit-point-motion-hooks t)
+	    (case-fold-search t)
+	    (alist gnus-header-button-alist)
+	    entry beg end)
+	(article-narrow-to-head)
+	(while alist
+	  ;; Each alist entry.
+	  (setq entry (car alist)
+		alist (cdr alist))
+	  (goto-char (point-min))
+	  (while (re-search-forward (car entry) nil t)
+	    ;; Each header matching the entry.
+	    (setq beg (match-beginning 0))
+	    (setq end (or (and (re-search-forward "^[^ \t]" nil t)
+			       (match-beginning 0))
+			  (point-max)))
+	    (goto-char beg)
+	    (while (re-search-forward (nth 1 entry) end t)
+	      ;; Each match within a header.
+	      (let* ((entry (cdr entry))
+		     (start (match-beginning (nth 1 entry)))
+		     (end (match-end (nth 1 entry)))
+		     (form (nth 2 entry)))
+		(goto-char (match-end 0))
+		(when (eval form)
+		  (gnus-article-add-button
+		   start end (nth 3 entry)
+		   (buffer-substring (match-beginning (nth 4 entry))
+				     (match-end (nth 4 entry)))))))
+	    (goto-char end)))))))
 
 ;;; External functions:
 
@@ -4509,7 +4487,8 @@ For example:
 	(when (and (or (consp val)
 		       treated-type)
 		   (gnus-treat-predicate val))
-	  (funcall (cadr elem)))))))
+	  (save-restriction
+	    (funcall (cadr elem))))))))
 
 ;; Dynamic variables.
 (defvar part-number)
diff --git a/lisp/gnus-cite.el b/lisp/gnus-cite.el
index 7916ce2..998a196 100644
--- a/lisp/gnus-cite.el
+++ b/lisp/gnus-cite.el
@@ -104,13 +104,13 @@ The first regexp group should match the Supercite attribution."
   :type 'integer)
 
 (defcustom gnus-cite-attribution-prefix
-  "In article\\|in <\\|On \\(Mon\\|Tue\\|Wed\\|Thu\\|Fri\\|Sat\\|Sun\\),"
+  "In article\\|in <\\|On \\(Mon\\|Tue\\|Wed\\|Thu\\|Fri\\|Sat\\|Sun\\),\\|    > -----Original Message-----"
   "*Regexp matching the beginning of an attribution line."
   :group 'gnus-cite
   :type 'regexp)
 
 (defcustom gnus-cite-attribution-suffix
-  "\\(\\(wrote\\|writes\\|said\\|says\\|>\\)\\(:\\|\\.\\.\\.\\)\\)[ \t]*$"
+  "\\(\\(wrote\\|writes\\|said\\|says\\|>\\)\\(:\\|\\.\\.\\.\\)\\|-----Original Message-----\\)[ \t]*$"
   "*Regexp matching the end of an attribution line.
 The text matching the first grouping will be used as a button."
   :group 'gnus-cite
@@ -343,7 +343,8 @@ Lines matching `gnus-cite-attribution-suffix' and perhaps
 	      skip (gnus-cite-find-prefix number)
 	      face (cdr (assoc prefix face-alist)))
 	;; Add attribution button.
-	(goto-line number)
+	(goto-char (point-min))
+	(forward-line (1- number))
 	(when (re-search-forward gnus-cite-attribution-suffix
 				 (save-excursion (end-of-line 1) (point))
 				 t)
@@ -375,7 +376,7 @@ Lines matching `gnus-cite-attribution-suffix' and perhaps
 	(while numbers
 	  (setq number (pop numbers))
 	  (goto-char (point-min))
-	  (forward-line number)
+	  (forward-line (1- number))
 	  (push (cons (point-marker) "") marks)
 	  (while (and numbers
 		      (= (1- number) (car numbers)))
@@ -384,8 +385,7 @@ Lines matching `gnus-cite-attribution-suffix' and perhaps
 	  (forward-line (1- number))
 	  (push (cons (point-marker) prefix) marks)))
       ;; Skip to the beginning of the body.
-      (goto-char (point-min))
-      (search-forward "\n\n" nil t)
+      (article-goto-body)
       (push (cons (point-marker) "") marks)
       ;; Find the end of the body.
       (goto-char (point-max))
@@ -435,7 +435,6 @@ If WIDTH (the numerical prefix), use that text width when filling."
 	  (fill-column (if width (prefix-numeric-value width) fill-column)))
       (save-restriction
 	(while (cdr marks)
-	  (widen)
 	  (narrow-to-region (caar marks) (caadr marks))
 	  (let ((adaptive-fill-regexp
 		 (concat "^" (regexp-quote (cdar marks)) " *"))
@@ -569,8 +568,7 @@ See also the documentation for `gnus-article-highlight-citation'."
     (save-excursion
       (set-buffer gnus-article-buffer)
       (gnus-cite-parse-maybe force)
-      (goto-char (point-min))
-      (search-forward "\n\n" nil t)
+      (article-goto-body)
       (let ((start (point))
 	    (atts gnus-cite-attribution-alist)
 	    (buffer-read-only nil)
@@ -594,7 +592,8 @@ See also the documentation for `gnus-article-highlight-citation'."
 	    (while total
 	      (setq hidden (car total)
 		    total (cdr total))
-	      (goto-line hidden)
+	      (goto-char (point-min))
+	      (forward-line (1- hidden))
 	      (unless (assq hidden gnus-cite-attribution-alist)
 		(gnus-add-text-properties
 		 (point) (progn (forward-line 1) (point))
@@ -614,6 +613,7 @@ See also the documentation for `gnus-article-highlight-citation'."
 
 ;;; Internal functions:
 
+
 (defun gnus-cite-parse-maybe (&optional force)
   ;; Parse if the buffer has changes since last time.
   (if (and (not force)
@@ -638,9 +638,7 @@ See also the documentation for `gnus-article-highlight-citation'."
 
 (defun gnus-cite-parse-wrapper ()
   ;; Wrap chopped gnus-cite-parse
-  (goto-char (point-min))
-  (unless (search-forward "\n\n" nil t)
-    (goto-char (point-max)))
+  (article-goto-body)
   (save-excursion
     (gnus-cite-parse-attributions))
   ;; Try to avoid check citation if there is no reason to believe
@@ -907,8 +905,8 @@ See also the documentation for `gnus-article-highlight-citation'."
   (when face
     (let ((inhibit-point-motion-hooks t)
 	  from to overlay)
-      (goto-line number)
-      (unless (eobp)			; Sometimes things become confused.
+      (goto-char (point-min))
+      (when (zerop (forward-line (1- number)))
 	(forward-char (length prefix))
 	(skip-chars-forward " \t")
 	(setq from (point))
@@ -931,7 +929,8 @@ See also the documentation for `gnus-article-highlight-citation'."
       (while numbers
 	(setq number (car numbers)
 	      numbers (cdr numbers))
-	(goto-line number)
+	(goto-char (point-min))
+	(forward-line (1- number))
 	(cond ((get-text-property (point) 'invisible)
 	       (remove-text-properties (point) (progn (forward-line 1) (point))
 				       gnus-hidden-properties))
diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 3845b76..30fc67c 100644
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -2901,6 +2901,7 @@ If ARG is a number, it specifies which levels you are interested in
 re-scanning.  If ARG is non-nil and not a number, this will force
 \"hard\" re-reading of the active files from all servers."
   (interactive "P")
+  (require 'nnmail)
   (let ((gnus-inhibit-demon t)
 	;; Binding this variable will inhibit multiple fetchings
 	;; of the same mail source.
diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 0314ae6..1f07605 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -951,7 +951,10 @@ If YANK is non-nil, include the original article."
 	       (stringp nntp-server-type))
       (insert nntp-server-type))
     (insert "\n\n\n\n\n")
-    (gnus-debug)
+    (save-excursion
+      (set-buffer (gnus-get-buffer-create " *gnus environment info*"))
+      (gnus-debug))
+    (insert "<#part type=application/emacs-lisp buffer=\" *gnus environment info*\" disposition=inline><#/part>")
     (goto-char (point-min))
     (search-forward "Subject: " nil t)
     (message "")))
diff --git a/lisp/gnus-picon.el b/lisp/gnus-picon.el
index bab2bfd..dd66d78 100644
--- a/lisp/gnus-picon.el
+++ b/lisp/gnus-picon.el
@@ -375,7 +375,8 @@ To use:  (setq gnus-article-x-face-command 'gnus-picons-display-x-face)"
 		  (gnus-put-text-property
 		   (match-beginning 0) (match-end 0)
 		   'invisible t)
-		(article-goto-body)
+		(let ((article-goto-body-goes-to-point-min-p nil))
+		  (article-goto-body))
 		(unless (bobp)
 		  (backward-char 1)))))
 	  (if (null gnus-picons-piconsearch-url)
diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 9ffeee1..731aa57 100644
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -854,6 +854,7 @@ prompt the user for the name of an NNTP server to use."
   "Setup news information.
 If RAWFILE is non-nil, the .newsrc file will also be read.
 If LEVEL is non-nil, the news will be set up at level LEVEL."
+  (require 'nnmail)
   (let ((init (not (and gnus-newsrc-alist gnus-active-hashtb (not rawfile))))
 	;; Binding this variable will inhibit multiple fetchings
 	;; of the same mail source.
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index e987b04..896dd66 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -1340,6 +1340,7 @@ increase the score of each group you read."
     "a" gnus-summary-limit-to-author
     "u" gnus-summary-limit-to-unread
     "m" gnus-summary-limit-to-marks
+    "M" gnus-summary-limit-exclude-marks
     "v" gnus-summary-limit-to-score
     "*" gnus-summary-limit-include-cached
     "D" gnus-summary-limit-include-dormant
@@ -1745,6 +1746,7 @@ increase the score of each group you read."
 	["Hide childless dormant"
 	 gnus-summary-limit-exclude-childless-dormant t]
 	;;["Hide thread" gnus-summary-limit-exclude-thread t]
+	["Hide marked" gnus-summary-limit-exclude-marks t]
 	["Show expunged" gnus-summary-show-all-expunged t])
        ("Process Mark"
 	["Set mark" gnus-summary-mark-as-processable t]
diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 66a209a..fd4f927 100644
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -512,7 +512,7 @@ If N, return the Nth ancestor instead."
        ((gnus-functionp function)
 	)
        (t
-	(error "Invalid sort spec: %s" function))))if
+	(error "Invalid sort spec: %s" function))))
     (if (cdr funs)
 	`(or (,function ,first ,last)
 	     (and (not (,function ,last ,first))
diff --git a/lisp/gnus-uu.el b/lisp/gnus-uu.el
index 6ac03e2..f408ed2 100644
--- a/lisp/gnus-uu.el
+++ b/lisp/gnus-uu.el
@@ -555,8 +555,6 @@ didn't work, and overwrite existing files.  Otherwise, ask each time."
 	(delete-region (point) (gnus-point-at-eol))
 	(insert from))
       (message-forward post))
-    (delete-file file)
-    (kill-buffer buf)
     (setq gnus-uu-digest-from-subject nil)))
 
 (defun gnus-uu-digest-post-forward (&optional n)
diff --git a/lisp/gnus.el b/lisp/gnus.el
index bd427fa..141ac7c 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -264,13 +264,13 @@ is restarted, and sometimes reloaded."
 (defconst gnus-product-name "T-gnus"
   "Product name of this version of gnus.")
 
-(defconst gnus-version-number "6.10.058"
+(defconst gnus-version-number "6.10.059"
   "Version number for this version of gnus.")
 
-(defconst gnus-revision-number "09"
+(defconst gnus-revision-number "00"
   "Revision number for this version of gnus.")
 
-(defconst gnus-original-version-number "0.76"
+(defconst gnus-original-version-number "0.77"
     "Version number for this version of Gnus.")
 
 (provide 'running-pterodactyl-gnus-0_73-or-later)
diff --git a/lisp/mail-source.el b/lisp/mail-source.el
index c54332e..c18203b 100644
--- a/lisp/mail-source.el
+++ b/lisp/mail-source.el
@@ -69,8 +69,10 @@
        (:suffix ".spool")
        (:predicate identity))
       (pop
+       (:prescript)
+       (:postscript)
        (:server (getenv "MAILHOST"))
-       (:port "pop3")
+       (:port "pop")
        (:user (or (user-login-name) (getenv "LOGNAME") (getenv "USER")))
        (:program)
        (:function)
@@ -308,8 +310,18 @@ If ARGS, PROMPT is used as an argument to `format'."
 (defun mail-source-fetch-pop (source callback)
   "Fetcher for single-file sources."
   (mail-source-bind (pop source)
+    (when prescript
+      (if (fboundp prescript)
+ 	  (funcall prescript)
+ 	(call-process shell-file-name nil nil nil
+ 		      shell-command-switch 
+ 		      (format-spec
+ 		       prescript
+ 		       (format-spec-make ?p password ?t mail-source-crash-box
+ 					 ?s server ?P port ?u user)))))
     (let ((from (format "%s:%s:%s" server user port))
-	  (mail-source-string (format "pop:%s@%s" user server)))
+	  (mail-source-string (format "pop:%s@%s" user server))
+	  result)
       (setq password
 	    (or password
 		(cdr (assoc from mail-source-password-cache))
@@ -319,24 +331,38 @@ If ARGS, PROMPT is used as an argument to `format'."
 	(push (cons from password) mail-source-password-cache))
       (when server
 	(setenv "MAILHOST" server))
-      (if (cond
-	   (program
-	    (mail-source-fetch-with-program
-	     (format-spec
-	      program
-	      (format-spec-make ?p password ?t mail-source-crash-box
-				?s server ?P port ?u user))))
-	   (function
-	    (funcall function mail-source-crash-box))
-	   ;; The default is to use pop3.el.
-	   (t
-	    (let ((pop3-password password)
-		  (pop3-maildrop user)
-		  (pop3-mailhost server)
-		  (pop3-authentication-scheme
-		   (if (eq authentication 'apop) 'apop 'pass)))
-	      (save-excursion (pop3-movemail mail-source-crash-box)))))
-	  (mail-source-callback callback server)
+      (setq result
+	    (cond
+	     (program
+	      (mail-source-fetch-with-program
+	       (format-spec
+		program
+		(format-spec-make ?p password ?t mail-source-crash-box
+				  ?s server ?P port ?u user))))
+	     (function
+	      (funcall function mail-source-crash-box))
+	     ;; The default is to use pop3.el.
+	     (t
+	      (let ((pop3-password password)
+		    (pop3-maildrop user)
+		    (pop3-mailhost server)
+		    (pop3-port port)
+		    (pop3-authentication-scheme
+		     (if (eq authentication 'apop) 'apop 'pass)))
+		(save-excursion (pop3-movemail mail-source-crash-box))))))
+      (if result
+	  (progn
+	    (mail-source-callback callback server)
+	    (when prescript
+	      (if (fboundp prescript)
+		  (funcall prescript)
+		(call-process shell-file-name nil nil nil
+			      shell-command-switch 
+			      (format-spec
+			       postscript
+			       (format-spec-make
+				?p password ?t mail-source-crash-box
+				?s server ?P port ?u user))))))
 	;; We nix out the password in case the error
 	;; was because of a wrong password being given.
 	(setq mail-source-password-cache
diff --git a/lisp/message.el b/lisp/message.el
index d3a90dc..cf9114e 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -645,6 +645,7 @@ Predefined functions include `message-cite-original' and
 `message-cite-original-without-signature'.
 Note that `message-cite-original' uses `mail-citation-hook' if that is non-nil."
   :type '(radio (function-item message-cite-original)
+		(function-item message-cite-original-without-signature)
 		(function-item sc-cite-original)
 		(function :tag "Other"))
   :group 'message-insertion)
@@ -1420,6 +1421,7 @@ Point is left at the beginning of the narrowed-to region."
 (defun message-sort-headers-1 ()
   "Sort the buffer as headers using `message-rank' text props."
   (goto-char (point-min))
+  (require 'sort)
   (sort-subr
    nil 'message-next-header
    (lambda ()
@@ -1650,6 +1652,8 @@ C-c C-a  message-mime-attach-file (attach a file as MIME)."
   (setq adaptive-fill-first-line-regexp
 	(concat "[ \t]*[-a-z0-9A-Z]*>+[ \t]*\\|"
 		adaptive-fill-first-line-regexp))
+  (make-local-variable 'indent-tabs-mode) ;Turn off tabs for indentation.
+  (setq indent-tabs-mode nil)
   (run-hooks 'text-mode-hook 'message-mode-hook))
 
 
@@ -2472,7 +2476,6 @@ This sub function is for exclusive use of `message-send-mail'."
       (let ((message-deletable-headers
 	     (if news nil message-deletable-headers)))
 	(message-generate-headers message-required-mail-headers))
-      (untabify (point-min) (point-max))
       ;; Let the user do all of the above.
       (run-hooks 'message-header-hook))
     (if (not (message-check-mail-syntax))
@@ -2707,7 +2710,6 @@ This sub function is for exclusive use of `message-send-news'."
       (message-narrow-to-headers)
       ;; Insert some headers.
       (message-generate-headers message-required-news-headers)
-      (untabify (point-min) (point-max))
       ;; Let the user do all of the above.
       (run-hooks 'message-header-hook))
     (message-cleanup-headers)
diff --git a/lisp/mm-bodies.el b/lisp/mm-bodies.el
index 90de90f..64e6053 100644
--- a/lisp/mm-bodies.el
+++ b/lisp/mm-bodies.el
@@ -45,7 +45,7 @@
     (iso-8859-3 . quoted-printable)
     (iso-8859-4 . quoted-printable)
     (iso-8859-5 . base64)
-    (koi8-r . base64)
+    (koi8-r . 8bit)
     (iso-8859-7 . quoted-printable)
     (iso-8859-8 . quoted-printable)
     (iso-8859-9 . quoted-printable)
@@ -122,7 +122,7 @@ If no encoding was done, nil is returned."
      ((eq charset mail-parse-charset)
       bits)
      (t
-      (let ((encoding (or (cdr (assq charset mm-body-charset-encoding-alist ))
+      (let ((encoding (or (cdr (assq charset mm-body-charset-encoding-alist))
 			  'quoted-printable)))
 	(mm-encode-content-transfer-encoding encoding "text/plain")
 	encoding)))))
diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index d3e6fe1..01daa1b 100644
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -83,6 +83,7 @@
     ("text/html" mm-inline-text (locate-library "w3"))
     ("text/x-vcard" mm-inline-text (locate-library "vcard"))
     ("message/delivery-status" mm-inline-text t)
+    ("message/rfc822" mm-inline-message t)
     ("text/.*" mm-inline-text t)
     ("audio/wav" mm-inline-audio
      (and (or (featurep 'nas-sound) (featurep 'native-sound))
@@ -98,11 +99,13 @@
 (defvar mm-user-display-methods
   '(("image/.*" . inline)
     ("text/.*" . inline)
-    ("message/delivery-status" . inline)))
+    ("message/delivery-status" . inline)
+    ("message/rfc822" . inline)))
 
 (defvar mm-user-automatic-display
   '("text/plain" "text/enriched" "text/richtext" "text/html"
-    "text/x-vcard" "image/.*" "message/delivery-status" "multipart/.*"))
+    "text/x-vcard" "image/.*" "message/delivery-status" "multipart/.*"
+    "message/rfc822"))
 
 (defvar mm-attachment-override-types
   '("text/plain" "text/x-vcard")
diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index 1634ce3..1807327 100644
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -252,7 +252,9 @@ See also `with-temp-file' and `with-output-to-string'."
 (defun mm-find-charset-region (b e)
   "Return a list of charsets in the region."
   (cond
-   ((fboundp 'find-charset-region)
+   ((and (boundp 'enable-multibyte-characters)
+ 	 enable-multibyte-characters
+ 	 (fboundp 'find-charset-region))
     (find-charset-region b e))
    ((not (boundp 'current-language-environment))
     (save-excursion
diff --git a/lisp/mm-view.el b/lisp/mm-view.el
index a693aaa..9c20184 100644
--- a/lisp/mm-view.el
+++ b/lisp/mm-view.el
@@ -71,7 +71,8 @@
 	  (save-restriction
 	    (narrow-to-region b (point))
 	    (save-window-excursion
-	      (let ((w3-strict-width width))
+	      (let ((w3-strict-width width)
+		    (url-standalone-mode t))
 		(w3-region (point-min) (point-max)))))
 	  (mm-handle-set-undisplayer
 	   handle
@@ -133,14 +134,34 @@
 
 (defun mm-w3-prepare-buffer ()
   (require 'w3)
-  (w3-prepare-buffer))
+  (let ((url-standalone-mode t))
+    (w3-prepare-buffer)))
 
 (defun mm-view-message ()
+  (mm-enable-multibyte)
   (gnus-article-prepare-display)
   (run-hooks 'gnus-article-decode-hook)
   (fundamental-mode)
   (goto-char (point-min)))
 
+(defun mm-inline-message (handle)
+  (let ((b (point)))
+    (save-excursion
+      (mm-insert-part handle)
+      (save-restriction
+	(narrow-to-region b (point))
+	(run-hooks 'gnus-article-decode-hook)
+	(gnus-article-prepare-display)
+	(mm-handle-set-undisplayer
+	 handle
+	 `(lambda ()
+	    (let (buffer-read-only)
+	      (mapc (lambda (prop)
+		      (remove-specifier
+		       (face-property 'default prop) (current-buffer)))
+		    '(background background-pixmap foreground))
+	      (delete-region ,(point-min-marker) ,(point-max-marker)))))))))
+
 (provide 'mm-view)
 
 ;; mm-view.el ends here
diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index 70c9531..16a93af 100644
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -792,7 +792,7 @@ If SOURCE is a directory spec, try to return the group name component."
     (goto-char (point-min))
     ;; Find the end of the head.
     (narrow-to-region
-     (point-min) 
+     (point-min)
      (if (search-forward "\n\n" nil t)
 	 (1- (point))
        ;; This will never happen, but just to be on the safe side --
@@ -1044,6 +1044,9 @@ Return the number of characters in the body."
       (beginning-of-line)
       (insert "X-Gnus-Broken-Eudora-"))))
 
+(custom-add-option 'nnmail-prepare-incoming-header-hook
+		   'nnmail-fix-eudora-headers)
+
 ;;; Utility functions
 
 (defun nnmail-split-fancy ()
@@ -1364,8 +1367,6 @@ See the documentation for the variable `nnmail-split-fancy' for documentation."
 	 ((eq source 'procmail)
 	  (message "Invalid value for nnmail-spool-file: `procmail'")
 	  nil))
-	(nnheader-message 4 "%s: Reading incoming mail from %s..."
-			  method (car source))
 	;; Hack to only fetch the contents of a single group's spool file.
 	(when (and (eq (car source) 'directory)
 		   group)
@@ -1378,15 +1379,17 @@ See the documentation for the variable `nnmail-split-fancy' for documentation."
 	  (if (member source nnmail-fetched-sources)
 	      (setq source nil)
 	    (push source nnmail-fetched-sources)))
-	(when (and source
-		   (mail-source-fetch
-		    source
-		    `(lambda (file orig-file)
-		       (nnmail-split-incoming
-			file ',(intern (format "%s-save-mail" method))
-			',spool-func (nnmail-get-split-group orig-file source)
-			',(intern (format "%s-active-number" method))))))
-	  (incf i)))
+	(when source
+	  (nnheader-message 4 "%s: Reading incoming mail from %s..."
+			    method (car source))
+	  (when (mail-source-fetch
+		 source
+		 `(lambda (file orig-file)
+		    (nnmail-split-incoming
+		     file ',(intern (format "%s-save-mail" method))
+		     ',spool-func (nnmail-get-split-group orig-file source)
+		     ',(intern (format "%s-active-number" method)))))
+	    (incf i))))
       ;; If we did indeed read any incoming spools, we save all info.
       (unless (zerop i)
 	(nnmail-save-active
diff --git a/lisp/nnml.el b/lisp/nnml.el
index d4a2a58..ed3e365 100644
--- a/lisp/nnml.el
+++ b/lisp/nnml.el
@@ -591,7 +591,7 @@ all.  This may very well take some time.")
 	(let ((file (concat (nnmail-group-pathname
 			     (caar ga) nnml-directory)
 			    (int-to-string (cdar ga)))))
-z	  (if first
+	  (if first
 	      ;; It was already saved, so we just make a hard link.
 	      (funcall nnmail-crosspost-link-function first file t)
 	    ;; Save the article.
diff --git a/texi/ChangeLog b/texi/ChangeLog
index bb263d0..2d732f8 100644
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,11 @@
+1999-02-20 17:33:55  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* gnus.texi (Mail Source Specifiers): Addition.
+
+1999-02-11 19:19:02  Carsten Leonhardt  <leo@arioch.oche.de>
+
+	* gnus.texi (Mail Source Specifiers): Document maildir.
+
 1999-02-09 16:21:35  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* gnus.texi (Charsets): New.
diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi
index a7e70aa..818fd3c 100644
--- a/texi/gnus-ja.texi
+++ b/texi/gnus-ja.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename gnus-ja
-@settitle Semi-gnus 6.10.058 Manual
+@settitle Semi-gnus 6.10.059 Manual
 @synindex fn cp
 @synindex vr cp
 @synindex pg cp
@@ -345,7 +345,7 @@ into another language, under the above conditions for modified versions.
 @tex
 
 @titlepage
-@title Semi-gnus 6.10.058 Manual
+@title Semi-gnus 6.10.059 Manual
 
 @author by Lars Magne Ingebrigtsen
 @author by members of Semi-gnus mailing-list
@@ -399,7 +399,7 @@ Semi-gnus $B$O!"Bg$-$J3($,F~$C$F$$$?$j$5$^$6$^$J7A<0$rMQ$$$?$j$7$F$$$k$A$g$C(B
 $B$J8@8l7w$r:9JL$7$^$;$s!#$"$"!"%/%j%s%4%s$NJ}$O(B Unicode Next Generation$B$r(B
 $B$*BT$A$/$@$5$$!#(B
 
-$B$3$N@bL@=q$O(B Semi-gnus 6.10.058 $B$KBP1~$7$^$9!#(B
+$B$3$N@bL@=q$O(B Semi-gnus 6.10.059 $B$KBP1~$7$^$9!#(B
 
 @end ifinfo
 
diff --git a/texi/gnus.texi b/texi/gnus.texi
index 55dbd02..d9f9228 100644
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename gnus
-@settitle Semi-gnus 6.10.058 Manual
+@settitle Semi-gnus 6.10.059 Manual
 @synindex fn cp
 @synindex vr cp
 @synindex pg cp
@@ -318,7 +318,7 @@ into another language, under the above conditions for modified versions.
 @tex
 
 @titlepage
-@title Semi-gnus 6.10.058 Manual
+@title Semi-gnus 6.10.059 Manual
 
 @author by Lars Magne Ingebrigtsen
 @page
@@ -361,7 +361,7 @@ internationalization/localization and multiscript features based on MULE
 API.  So Semi-gnus does not discriminate various language communities.
 Oh, if you are a Klingon, please wait Unicode Next Generation.
 
-This manual corresponds to Semi-gnus 6.10.058.
+This manual corresponds to Semi-gnus 6.10.059.
 
 @end ifinfo
 
@@ -4719,6 +4719,11 @@ Include all cached articles in the limit
 Exclude all dormant articles from the limit
 (@code{gnus-summary-limit-exclude-dormant}).
 
+@item / M
+@kindex / M (Summary)
+@findex gnus-summary-limit-exclude-marks
+Exclude all marked articles (@code{gnus-summary-limit-exclude-marks}). 
+
 @item / T
 @kindex / T (Summary)
 @findex gnus-summary-limit-include-thread
@@ -10047,6 +10052,14 @@ The password to use.
 The values used for these specs are taken from the values you give the
 corresponding keywords.
 
+@item :prescript
+A script to be run before fetching the mail.  The syntax is the same as
+the @code{:program} keyword.  This can also be a function to be run.
+
+@item :postscript
+A script to be run after fetching the mail.  The syntax is the same as
+the @code{:program} keyword.  This can also be a function to be run.
+
 @item :function
 The function to use to fetch mail from the POP server.  The function is
 called with one parameter---the name of the file where the mail should
@@ -10083,6 +10096,30 @@ Use @samp{movemail} to move the mail:
      :args (format "po:%s %s %s" user mail-source-crash-box password))
 @end lisp
 
+@item maildir
+Get mail from a maildir. This is a type of mailbox currently only
+supported by qmail, where each file in a special directory contains
+exactly one mail.
+
+Keywords:
+
+@table @code
+@item :path
+The path of the directory where the mails are stored.  The default is 
+@samp{~/Maildir/new}.
+
+If you sometimes look at your mail through a pop3 daemon before fetching
+them with Gnus, you may also have to fetch your mails from the
+@code{cur} directory inside the maildir, like in the following example.
+
+@end table
+
+An example maildir mail source:
+
+@lisp
+(maildir :path "/home/user-name/Maildir/cur")
+@end lisp
+
 @end table
 
 
diff --git a/texi/message-ja.texi b/texi/message-ja.texi
index d38329c..2afa3b7 100644
--- a/texi/message-ja.texi
+++ b/texi/message-ja.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename message-ja
-@settitle Message 6.10.058 Manual
+@settitle Message 6.10.059 Manual
 @synindex fn cp
 @synindex vr cp
 @synindex pg cp
@@ -60,7 +60,7 @@ into another language, under the above conditions for modified versions.
 @tex
 
 @titlepage
-@title Message 6.10.058 Manual
+@title Message 6.10.059 Manual
 
 @author by Lars Magne Ingebrigtsen
 @translated by members of Semi-gnus mailing-list
@@ -112,7 +112,7 @@ Gnus $B$NA4$F$N%a%C%;!<%8$N:n@.(B ($B%a!<%k$H%K%e!<%9$NN>J}(B) $B$O%a%C%;!<
 * Key Index::         $B%a%C%;!<%8%b!<%I%-!<$N0lMw!#(B
 @end menu
 
-$B$3$N%^%K%e%"%k$O(B Message 6.10.058 $B$KBP1~$7$^$9!#(BMessage $B$O$3$N%^%K%e%"%k$H(B
+$B$3$N%^%K%e%"%k$O(B Message 6.10.059 $B$KBP1~$7$^$9!#(BMessage $B$O$3$N%^%K%e%"%k$H(B
 $BF1$8HGHV9f$N(B Gnus $B$NG[I[$H6&$KG[I[$5$l$^$9!#(B
 
 
diff --git a/texi/message.texi b/texi/message.texi
index cc88832..74bd5d9 100644
--- a/texi/message.texi
+++ b/texi/message.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename message
-@settitle Message 6.10.058 Manual
+@settitle Message 6.10.059 Manual
 @synindex fn cp
 @synindex vr cp
 @synindex pg cp
@@ -42,7 +42,7 @@ into another language, under the above conditions for modified versions.
 @tex
 
 @titlepage
-@title Message 6.10.058 Manual
+@title Message 6.10.059 Manual
 
 @author by Lars Magne Ingebrigtsen
 @page
@@ -83,7 +83,7 @@ Message mode buffers.
 * Key Index::         List of Message mode keys.
 @end menu
 
-This manual corresponds to Message 6.10.058.  Message is
+This manual corresponds to Message 6.10.059.  Message is
 distributed with the Gnus distribution bearing the same version number
 as this manual.