From 40d0440ae3769803fb4897a445f49e345ed81c3b Mon Sep 17 00:00:00 2001
From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Mon, 31 Aug 1998 20:15:17 +0000
Subject: [PATCH] *** empty log message ***

---
 lisp/ChangeLog    | 59 +++++++++++++++++++++++++++++++++
 lisp/gnus-art.el  | 24 ++++++++++++--
 lisp/gnus-msg.el  | 22 +++++++++----
 lisp/gnus-sum.el  | 12 ++++---
 lisp/gnus-util.el | 38 ++++++----------------
 lisp/gnus.el      | 25 +++++++-------
 lisp/message.el   | 36 +++++++++++++++++---
 lisp/mm-bodies.el | 83 +++++++++++++++++++++++++++++++++++++++++++++++
 lisp/mm-util.el   | 33 +++++++++++++++++++
 lisp/nnheader.el  |  1 -
 lisp/nnmail.el    |  2 +-
 lisp/rfc2047.el   |  8 ++---
 mkinstalldirs     | 40 +++++++++++++++++++++++
 texi/gnus.texi    |  6 ++--
 texi/message.texi |  6 ++--
 15 files changed, 325 insertions(+), 70 deletions(-)
 create mode 100644 lisp/mm-bodies.el
 create mode 100755 mkinstalldirs

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index acb8c2a8e..ee8c310a5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,62 @@
+Mon Aug 31 22:14:50 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+
+	* gnus.el: Pterodactyl Gnus v0.11 is released.
+
+1998-08-31 14:27:25  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* message.el (message-encode-message-body): Ditto.
+
+	* gnus-art.el (gnus-article-decode-mime-words): New command and
+	keystroke. 
+	(gnus-article-decode-charset): Ditto.
+	(gnus-article-decode-charset): Only work under MULE.
+
+	* mm-util.el (mm-content-type-charset): New function.
+
+	* nnmail.el (nnmail-delete-incoming): Changed to nil.
+
+	* message.el (message-send-mail): Insert MIME headers.
+	(message-check-news-body-syntax): Don't warn for escape sequences.
+	(message-check-news-body-syntax): Insert MIME headers.
+
+	* mm-bodies.el (mm-body-encoding): New function.
+
+	* message.el (message-encode-message-body): New function.
+
+	* mm-bodies.el: New file.
+
+	* mm-util.el (mm-narrow-to-head): New function.
+
+	* rfc2047.el (rfc2047-encode): Use it.
+
+	* mm-util.el: Provide mm-encode-coding-region.
+
+	* gnus-sum.el (gnus-summary-mode): Enable multibyte.
+
+	* gnus-util.el (gnus-set-work-buffer): Enable multibyte.
+
+	* mm-util.el (mm-enable-multibyte): New function.
+
+	* message.el (message-set-work-buffer): Set multibyte.
+
+	* gnus.el (gnus-continuum-version): Be valid forever and ever.
+
+	* gnus-util.el (gnus-point-at-eol): Removed.
+	(gnus-point-at-bol): Ditto.
+
+	* base64.el (base64-decode-region): Commented out messaging.
+
+1998-08-31  Didier Verna  <verna@inf.enst.fr>
+
+	* gnus-msg.el (gnus-group-mail): make it behave like
+	gnus-group-post-news with regards to the prefix (this enables the
+	use of posting styles).
+
+1998-08-31 12:53:32  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* gnus.el (gnus-article-display-hook): Added
+	gnus-article-decode-rfc1522 to hook.
+
 Mon Aug 31 12:43:46 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
 	* gnus.el: Pterodactyl Gnus v0.10 is released.
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index d3b2357a3..d2d9991dd 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -33,6 +33,7 @@
 (require 'gnus-spec)
 (require 'gnus-int)
 (require 'browse-url)
+(require 'mm-bodies)
 
 (defgroup gnus-article nil
   "Article display."
@@ -954,6 +955,26 @@ characters to translate to."
 	  buffer-read-only)
       (rfc2047-decode-region (point-min) (point-max)))))
 
+(defun gnus-article-decode-charset ()
+  "Decode charset-encoded text in the article."
+  (interactive)
+  (when (featurep 'mule)
+    (save-excursion
+      (set-buffer gnus-article-buffer)
+      (let* ((inhibit-point-motion-hooks t)
+	     (ct (message-fetch-field "Content-Type"))
+	     (charset (and ct (mm-content-type-charset ct)))
+	     mule-charset buffer-read-only)
+	(save-restriction
+	  (goto-char (point-min))
+	  (search-forward "\n\n" nil 'move)
+	  (narrow-to-region (point) (point-max))
+	  (when (and charset
+		     (setq mule-charset (mm-charset-to-coding-system charset))
+		     (not (mm-coding-system-equal
+			   buffer-file-coding-system mule-charset)))
+	    (mm-decode-body (mm-charset-to-coding-system charset))))))))
+
 (defalias 'gnus-decode-rfc1522 'article-decode-rfc1522)
 (defalias 'gnus-article-decode-rfc1522 'article-decode-rfc1522)
 (defun article-decode-rfc1522 ()
@@ -1936,8 +1957,7 @@ commands:
   (buffer-disable-undo (current-buffer))
   (setq buffer-read-only t)
   (set-syntax-table gnus-article-mode-syntax-table)
-  (when (fboundp 'set-buffer-multibyte)
-    (set-buffer-multibyte t))
+  (mm-enable-multibyte)
   (gnus-run-hooks 'gnus-article-mode-hook))
 
 (defun gnus-article-setup-buffer ()
diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 6d4aee091..eb6197347 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -228,11 +228,20 @@ Thank you for your help in stamping out bugs.
 
 ;;; Post news commands of Gnus group mode and summary mode
 
-(defun gnus-group-mail ()
-  "Start composing a mail."
-  (interactive)
-  (gnus-setup-message 'message
-    (message-mail)))
+(defun gnus-group-mail (&optional arg)
+  "Start composing a mail.
+If ARG, use the group under the point to find a posting style.
+If ARG is 1, prompt for a group name to find the posting style."
+  (interactive "P")
+  (let ((gnus-newsgroup-name
+	 (if arg
+	     (if (= 1 (prefix-numeric-value arg))
+		 (completing-read "Use style of group: " gnus-active-hashtb nil
+				  (gnus-read-active-file-p))
+	       (gnus-group-group-name))
+	   "")))
+    (gnus-setup-message 'message (message-mail))
+    ))
 
 (defun gnus-group-post-news (&optional arg)
   "Start composing a news message.
@@ -356,8 +365,7 @@ header line with the old Message-ID."
   (buffer-disable-undo gnus-article-copy)
   (save-excursion
     (set-buffer gnus-article-copy)
-    (when (fboundp 'set-buffer-multibyte)
-      (set-buffer-multibyte t)))
+    (mm-enable-multibyte))
   (let ((article-buffer (or article-buffer gnus-article-buffer))
 	end beg)
     (if (not (and (get-buffer article-buffer)
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index ad03a1487..5a79dce4a 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -1385,7 +1385,8 @@ increase the score of each group you read."
     "s" gnus-article-highlight-signature)
 
   (gnus-define-keys (gnus-summary-wash-mime-map "M" gnus-summary-wash-map)
-    "w" gnus-article-decode-mime-words)
+    "w" gnus-article-decode-mime-words
+    "c" gnus-article-decode-charset)
 
   (gnus-define-keys (gnus-summary-wash-time-map "T" gnus-summary-wash-map)
     "z" gnus-article-date-ut
@@ -1488,6 +1489,7 @@ increase the score of each group you read."
               ["Citation" gnus-article-highlight-citation t])
 	     ("MIME"
 	      ["Words" gnus-article-decode-mime-words t]
+	      ["Charset" gnus-article-decode-charset t]
 	      ["QP" gnus-article-de-quoted-unreadable t])
              ("Date"
               ["Local" gnus-article-date-local t]
@@ -1881,6 +1883,7 @@ The following commands are available:
   (make-local-hook 'pre-command-hook)
   (add-hook 'pre-command-hook 'gnus-set-global-variables nil t)
   (gnus-run-hooks 'gnus-summary-mode-hook)
+  (mm-enable-multibyte)
   (gnus-update-format-specifications nil 'summary 'summary-mode 'summary-dummy)
   (gnus-update-summary-mark-positions))
 
@@ -4526,10 +4529,9 @@ list of headers that match SEQUENCE (see `nntp-retrieve-headers')."
 				     number dependencies force-new))))
 		   (push header headers))
 	      (forward-line 1))
-	  ;(error
-	  ; (gnus-error 4 "Strange nov line (%d)"
-	;	       (count-lines (point-min) (point))))
-	  )
+	  (error
+	   (gnus-error 4 "Strange nov line (%d)"
+		       (count-lines (point-min) (point)))))
 	(forward-line 1))
       ;; A common bug in inn is that if you have posted an article and
       ;; then retrieves the active file, it will answer correctly --
diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 3ccd1c8f9..66247624d 100644
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -103,33 +103,15 @@
      (when (gnus-buffer-exists-p buf)
        (kill-buffer buf))))
 
-(cond
- ((fboundp 'point-at-bol)
-  (fset 'gnus-point-at-bol 'point-at-bol))
- ((fboundp 'line-beginning-position)
-  (fset 'gnus-point-at-bol 'line-beginning-position))
- (t
-  (defun gnus-point-at-bol ()
-    "Return point at the beginning of the line."
-    (let ((p (point)))
-      (beginning-of-line)
-      (prog1
-	  (point)
-	(goto-char p))))))
-
-(cond
- ((fboundp 'point-at-eol)
-  (fset 'gnus-point-at-eol 'point-at-eol))
- ((fboundp 'line-end-position)
-  (fset 'gnus-point-at-eol 'line-end-position))
- (t
-  (defun gnus-point-at-eol ()
-    "Return point at the end of the line."
-    (let ((p (point)))
-      (end-of-line)
-      (prog1
-	  (point)
-	(goto-char p))))))
+(fset 'gnus-point-at-bol
+      (if (fboundp 'point-at-bol)
+	  'point-at-bol
+	'line-beginning-position))
+
+(fset 'gnus-point-at-eol
+      (if (fboundp 'point-at-eol)
+	  'point-at-eol
+	'line-end-position))
 
 (defun gnus-delete-first (elt list)
   "Delete by side effect the first occurrence of ELT as a member of LIST."
@@ -547,7 +529,7 @@ Timezone package is used."
 	(erase-buffer))
     (set-buffer (gnus-get-buffer-create gnus-work-buffer))
     (kill-all-local-variables)
-    (buffer-disable-undo (current-buffer))))
+    (mm-enable-multibyte)))
 
 (defmacro gnus-group-real-name (group)
   "Find the real name of a foreign newsgroup."
diff --git a/lisp/gnus.el b/lisp/gnus.el
index 46d1469b5..9881e7290 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -250,7 +250,7 @@ is restarted, and sometimes reloaded."
   :link '(custom-manual "(gnus)Exiting Gnus")
   :group 'gnus)
 
-(defconst gnus-version-number "0.10"
+(defconst gnus-version-number "0.11"
   "Version number for this version of Gnus.")
 
 (defconst gnus-version (format "Pterodactyl Gnus v%s" gnus-version-number)
@@ -1346,12 +1346,16 @@ face."
 (defcustom gnus-article-display-hook
   (if (and (string-match "XEmacs" emacs-version)
 	   (featurep 'xface))
-      '(gnus-article-hide-headers-if-wanted
+      '(gnus-article-decode-charset
+	gnus-article-decode-rfc1522
+	gnus-article-hide-headers-if-wanted
 	gnus-article-hide-boring-headers
 	gnus-article-treat-overstrike
 	gnus-article-maybe-highlight
 	gnus-article-display-x-face)
-    '(gnus-article-hide-headers-if-wanted
+    '(gnus-article-decode-charset
+      gnus-article-decode-rfc1522
+      gnus-article-hide-headers-if-wanted
       gnus-article-hide-boring-headers
       gnus-article-treat-overstrike
       gnus-article-maybe-highlight))
@@ -2001,14 +2005,13 @@ If ARG, insert string at point."
       (string-to-number
        (if (zerop major)
 	   (format "%s00%02d%02d"
-		   (cond
-		    ((member alpha '("(ding)" "d")) "4.99")
-		    ((member alpha '("September" "s")) "5.01")
-		    ((member alpha '("Red" "r")) "5.03")
-		    ((member alpha '("Quassia" "q")) "5.05")
-		    ((member alpha '("Pterodactyl" "p")) "5.07")
-		    ((member alpha '("o")) "5.09")
-		    ((member alpha '("n")) "5.11"))
+		   (if (member alpha '("(ding)" "d"))
+		       "4.99"
+		     (+ 5 (* 0.02
+			     (abs
+			      (- (char-int (aref (downcase alpha) 0))
+				 (char-int ?t))))
+			-0.01))
 		   minor least)
 	 (format "%d.%02d%02d" major minor least))))))
 
diff --git a/lisp/message.el b/lisp/message.el
index 24cbee528..70ef73c0c 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -40,6 +40,7 @@
     (require 'mail-abbrevs)
   (require 'mailabbrev))
 (require 'rfc2047)
+(require 'mm-bodies)
 
 (defgroup message '((user-mail-address custom-variable)
 		    (user-full-name custom-variable))
@@ -1067,7 +1068,7 @@ The cdr of ech entry is a function for applying the face to a region.")
 	(erase-buffer))
     (set-buffer (get-buffer-create " *message work*"))
     (kill-all-local-variables)
-    (buffer-disable-undo (current-buffer))))
+    (mm-enable-multibyte)))
 
 (defun message-functionp (form)
   "Return non-nil if FORM is funcallable."
@@ -1386,8 +1387,7 @@ C-c C-r  message-caesar-buffer-body (rot13 the message body)."
   (setq adaptive-fill-first-line-regexp
 	(concat "[ \t]*[-a-z0-9A-Z]*>+[ \t]*\\|"
 		adaptive-fill-first-line-regexp))
-  (when (fboundp 'set-buffer-multibyte)
-    (set-buffer-multibyte t))
+  (mm-enable-multibyte)
   (run-hooks 'text-mode-hook 'message-mode-hook))
 
 
@@ -2025,6 +2025,7 @@ the user from the mailer."
       (rfc2047-encode-message-header)
       ;; Let the user do all of the above.
       (run-hooks 'message-header-hook))
+    (message-encode-message-body)
     (unwind-protect
 	(save-excursion
 	  (set-buffer tembuf)
@@ -2196,6 +2197,7 @@ to find out how to use this."
       (rfc2047-encode-message-header)
       ;; Let the user do all of the above.
       (run-hooks 'message-header-hook))
+    (message-encode-message-body)
     (message-cleanup-headers)
     (if (not (message-check-news-syntax))
 	(progn
@@ -2489,7 +2491,7 @@ to find out how to use this."
 	   (y-or-n-p "Empty article.  Really post? "))))
    ;; Check for control characters.
    (message-check 'control-chars
-     (if (re-search-forward "[\000-\007\013\015-\037\200-\237]" nil t)
+     (if (re-search-forward "[\000-\007\013\015-\032\034-\037\200-\237]" nil t)
 	 (y-or-n-p
 	  "The article contains control characters.  Really post? ")
        t))
@@ -4023,6 +4025,32 @@ regexp varstr."
       (setq idx (1+ idx)))
     string))
 
+;;;
+;;; MIME functions
+;;;
+
+(defun message-encode-message-body ()
+  "Examine the message body, encode it, and add the requisite headers."
+  (when (featurep 'mule)
+    (save-excursion
+      (save-restriction
+	(message-narrow-to-headers)
+	(message-remove-header
+	 "^Content-Transfer-Encoding:\\|^Content-Type:\\|^Mime-Version:" t)
+	(goto-char (point-max))
+	(widen)
+	(narrow-to-region (point) (point-max))
+	(let* ((charset (mm-encode-body))
+	       (encoding (mm-body-encoding)))
+	  (when (consp charset)
+	    (error "Can't encode messages with multiple charsets (yet)"))
+	  (widen)
+	  (message-narrow-to-headers)
+	  (goto-char (point-max))
+	  (mm-insert-rfc822-headers
+	   (or charset (mm-mule-charset-to-mime-charset 'ascii))
+	   encoding))))))
+
 (run-hooks 'message-load-hook)
 
 (provide 'message)
diff --git a/lisp/mm-bodies.el b/lisp/mm-bodies.el
new file mode 100644
index 000000000..54594cf15
--- /dev/null
+++ b/lisp/mm-bodies.el
@@ -0,0 +1,83 @@
+;;; mm-bodies.el --- Functions for decoding MIME things
+;; Copyright (C) 1998 Free Software Foundation, Inc.
+
+;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
+;;	MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.	 See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;;; Code:
+
+(require 'mm-util)
+
+(defun mm-encode-body ()
+  "Encode a body.
+Should be called narrowed to the body that is to be encoded.
+If there is more than one non-ASCII MULE charset, then list of found
+MULE charsets are returned.
+If successful, the MIME charset is returned.
+If no encoding was done, nil is returned."
+  (save-excursion
+    (goto-char (point-min))
+    (let ((charsets
+	   (delq 'ascii (find-charset-region (point-min) (point-max))))
+	  charset)
+      (cond
+       ;; No encoding.
+       ((null charsets)
+	nil)
+       ;; Too many charsets.
+       ((> (length charsets) 1)
+	charsets)
+       ;; We encode.
+       (t
+	(let ((mime-charset (mm-mule-charset-to-mime-charset (car charsets)))
+	      start)
+	  (when (not (mm-coding-system-equal
+		      mime-charset buffer-file-coding-system))
+	    (while (not (eobp))
+	      (if (eq (char-charset (following-char)) 'ascii)
+		  (when start
+		    (mm-encode-coding-region start (point) mime-charset)
+		    (setq start nil))
+		(unless start
+		  (setq start (point))))
+	      (forward-char 1))
+	    (when start
+	      (mm-encode-coding-region start (point) mime-charset)
+	      (setq start nil)))
+	  mime-charset))))))
+
+(defun mm-body-encoding ()
+  "Return the encoding of the current buffer."
+  (if (null (delq 'ascii (find-charset-region (point-min) (point-max))))
+      '7bit
+    '8bit))
+
+;;;
+;;; Functions for decoding
+;;;
+
+(defun mm-decode-body (charset)
+  (save-excursion
+    (mm-decode-coding-region (point-min) (point-max) charset)))
+
+(provide 'mm-bodies)
+
+;; mm-bodies.el ends here
diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index 67018f4ba..cda5148d4 100644
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -34,11 +34,26 @@
       (fset 'mm-encode-coding-string 'encode-coding-string)
     (fset 'mm-encode-coding-string (lambda (s a) s))))
 
+(eval-and-compile
+  (if (fboundp 'encode-coding-region)
+      (fset 'mm-encode-coding-region 'encode-coding-region)
+    (fset 'mm-encode-coding-string 'ignore)))
+
+(eval-and-compile
+  (if (fboundp 'decode-coding-region)
+      (fset 'mm-decode-coding-region 'decode-coding-region)
+    (fset 'mm-decode-coding-string 'ignore)))
+
 (eval-and-compile
   (if (fboundp 'coding-system-list)
       (fset 'mm-coding-system-list 'coding-system-list)
     (fset 'mm-coding-system-list 'ignore)))
 
+(eval-and-compile
+  (if (fboundp 'coding-system-equal)
+      (fset 'mm-coding-system-equal 'coding-system-equal)
+    (fset 'mm-coding-system-equal 'equal)))
+
 (defvar mm-mime-mule-charset-alist
   '((us-ascii ascii)
     (iso-8859-1 latin-iso8859-1)
@@ -139,6 +154,24 @@ used as the line break code type of the coding system."
       (setq idx (1+ idx)))
     string))
 
+(defun mm-enable-multibyte ()
+  "Enable multibyte in the current buffer."
+  (when (fboundp 'set-buffer-multibyte)
+    (set-buffer-multibyte t)))
+
+(defun mm-insert-rfc822-headers (charset encoding)
+  "Insert text/plain headers with CHARSET and ENCODING."
+  (insert "MIME-Version: 1.0\n")
+  (insert "Content-Type: text/plain; charset=\""
+	  (downcase (symbol-name charset)) "\"\n")
+  (insert "Content-Transfer-Encoding: "
+	  (downcase (symbol-name encoding)) "\n"))
+
+(defun mm-content-type-charset (header)
+  "Return the charset parameter from HEADER."
+  (when (string-match "charset *= *\"? *\\([-0-9a-zA-Z_]+\\)\"? *$" header)
+    (intern (match-string 1 header))))
+
 (provide 'mm-util)
 
 ;;; mm-util.el ends here
diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index bbeba0f22..98da65975 100644
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -399,7 +399,6 @@ the line could be found."
     (unless (gnus-buffer-live-p nntp-server-buffer)
       (setq nntp-server-buffer (get-buffer-create " *nntpd*")))
     (set-buffer nntp-server-buffer)
-    (buffer-disable-undo (current-buffer))
     (erase-buffer)
     (kill-all-local-variables)
     (setq case-fold-search t)		;Should ignore case.
diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index 312458615..c4165d303 100644
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -408,7 +408,7 @@ Example:
   :group 'nnmail-split
   :type '(repeat (cons :format "%v" symbol regexp)))
 
-(defcustom nnmail-delete-incoming t
+(defcustom nnmail-delete-incoming nil
   "*If non-nil, the mail backends will delete incoming files after
 splitting."
   :group 'nnmail-retrieve
diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el
index 81241c2d0..a85f6a5fc 100644
--- a/lisp/rfc2047.el
+++ b/lisp/rfc2047.el
@@ -184,10 +184,7 @@ Should be called narrowed to the head of the message."
 		 (downcase (symbol-name encoding)) "?")))
     (save-restriction
       (narrow-to-region b e)
-      (insert
-       (prog1
-	   (mm-encode-coding-string (buffer-string) mime-charset)
-	 (delete-region (point-min) (point-max))))
+      (mm-encode-coding-region b e mime-charset)
       (funcall (cdr (assq encoding rfc2047-encoding-function-alist))
 	       (point-min) (point-max))
       (goto-char (point-min))
@@ -249,6 +246,7 @@ Should be called narrowed to the head of the message."
 (defun rfc2047-decode-string (string)
  "Decode the quoted-printable-encoded STRING and return the results."
  (with-temp-buffer
+   (mm-enable-multibyte)
    (insert string)
    (inline
      (rfc2047-decode-region (point-min) (point-max)))
@@ -269,7 +267,7 @@ Return WORD if not."
      word)))
 
 (defun rfc2047-decode (charset encoding string)
-  "Decode STRING as an encoded text.
+  "Decode STRING that uses CHARSET with ENCODING.
 Valid ENCODINGs are \"B\" and \"Q\".
 If your Emacs implementation can't decode CHARSET, it returns nil."
   (let ((cs (mm-charset-to-coding-system charset)))
diff --git a/mkinstalldirs b/mkinstalldirs
new file mode 100755
index 000000000..31f90a096
--- /dev/null
+++ b/mkinstalldirs
@@ -0,0 +1,40 @@
+#! /bin/sh
+# mkinstalldirs --- make directory hierarchy
+# Author: Noah Friedman <friedman@prep.ai.mit.edu>
+# Created: 1993-05-16
+# Public domain
+
+# $Id: mkinstalldirs,v 1.8 1997/06/25 17:03:22 meyering Exp $
+
+errstatus=0
+
+for file
+do
+   set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'`
+   shift
+
+   pathcomp=
+   for d
+   do
+     pathcomp="$pathcomp$d"
+     case "$pathcomp" in
+       -* ) pathcomp=./$pathcomp ;;
+     esac
+
+     if test ! -d "$pathcomp"; then
+        echo "mkdir $pathcomp" 1>&2
+
+        mkdir "$pathcomp" || lasterr=$?
+
+        if test ! -d "$pathcomp"; then
+  	  errstatus=$lasterr
+        fi
+     fi
+
+     pathcomp="$pathcomp/"
+   done
+done
+
+exit $errstatus
+
+# mkinstalldirs ends here
diff --git a/texi/gnus.texi b/texi/gnus.texi
index c91ced7d4..8fce1829a 100644
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename gnus
-@settitle Pterodactyl Gnus 0.10 Manual
+@settitle Pterodactyl Gnus 0.11 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 Pterodactyl Gnus 0.10 Manual
+@title Pterodactyl Gnus 0.11 Manual
 
 @author by Lars Magne Ingebrigtsen
 @page
@@ -354,7 +354,7 @@ can be gotten by any nefarious means you can think of---@sc{nntp}, local
 spool or your mbox file.  All at the same time, if you want to push your
 luck.
 
-This manual corresponds to Pterodactyl Gnus 0.10.
+This manual corresponds to Pterodactyl Gnus 0.11.
 
 @end ifinfo
 
diff --git a/texi/message.texi b/texi/message.texi
index 66c3ff3ec..fb59bec96 100644
--- a/texi/message.texi
+++ b/texi/message.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename message
-@settitle Pterodactyl Message 0.10 Manual
+@settitle Pterodactyl Message 0.11 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 Pterodactyl Message 0.10 Manual
+@title Pterodactyl Message 0.11 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 Pterodactyl Message 0.10.  Message is
+This manual corresponds to Pterodactyl Message 0.11.  Message is
 distributed with the Gnus distribution bearing the same version number
 as this manual has.
 
-- 
2.25.1