Sync up with Pterodactyl Gnus v0.14.

diff --git a/ChangeLog b/ChangeLog
index 8cb1c3a..0af86e9 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+1998-09-04  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+       * lisp/gnus.el (gnus-version-number): Update to 6.9.09.
+
+       * Sync up with Pterodactyl Gnus 0.14.
+
 1998-09-03  Katsumi Yamaoka   <yamaoka@jpl.org>
 
        * lisp/nndoc.el (nndoc-transform-mime-parts): Insert

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 689cade..66181a3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,36 @@
+Thu Sep  3 15:23:22 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+
+       * gnus.el: Pterodactyl Gnus v0.14 is released.
+
+1998-09-03 15:08:30  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * mm-bodies.el (mm-body-encoding): Go through the buffer to make
+       sure we have 7bit.
+
+1998-09-02 14:38:18  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-msg.el (gnus-post-method): Use opened servers, and remove
+       ducplicates. 
+       (gnus-inews-insert-mime-headers): Removed.
+
+       * message.el (message-caesar-region): Protect against MULE chars. 
+
+1998-09-02 00:36:23  Hallvard B. Furuseth  <h.b.furuseth@usit.uio.no>
+
+       * mm-util.el (if): fset the right function.
+
+1998-09-02 00:31:53  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-art.el (gnus-article-decode-charset): Use real
+       read-coding-system. 
+
+1998-09-01 17:58:40  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * mm-bodies.el (mm-decode-body): Protect against malformed
+       base64. 
+       (mm-decode-body): Check that buffer-file-coding-system is
+       non-nil. 
+
 Tue Sep  1 10:29:33 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
        * gnus.el: Pterodactyl Gnus v0.13 is released.

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 9a35377..88b4673 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -513,14 +513,16 @@ If SILENT, don't prompt the user."
                   (list gnus-post-method)))
               gnus-secondary-select-methods
               (mapcar 'cdr gnus-server-alist)
+              gnus-opened-servers
               (list gnus-select-method)
               (list group-method)))
             method-alist post-methods method)
        ;; Weed out all mail methods.
        (while methods
          (setq method (gnus-server-get-method "" (pop methods)))
-         (when (or (gnus-method-option-p method 'post)
-                   (gnus-method-option-p method 'post-mail))
+         (when (and (or (gnus-method-option-p method 'post)
+                        (gnus-method-option-p method 'post-mail))
+                    (not (member method post-methods)))
            (push method post-methods)))
        ;; Create a name-method alist.
        (setq method-alist

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 91cdcc6..26c6a40 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -253,10 +253,10 @@ is restarted, and sometimes reloaded."
 (defconst gnus-product-name "T-gnus"
   "Product name of this version of gnus.")
 
-(defconst gnus-version-number "6.9.08"
+(defconst gnus-version-number "6.9.09"
   "Version number for this version of gnus.")
 
-(defconst gnus-original-version-number "0.13"
+(defconst gnus-original-version-number "0.14"
     "Version number for this version of Gnus.")
 
 (defconst gnus-original-product-name "Pterodactyl Gnus"

diff --git a/lisp/lpath.el b/lisp/lpath.el
index e5c87b1..563a674 100644 (file)
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -38,7 +38,9 @@
                     decode-coding-string mail-aliases-setup
                     mm-copy-tree url-view-url w3-prepare-buffer
                     set-buffer-multibyte
-                    find-non-ascii-charset-region char-charset))
+                    find-non-ascii-charset-region char-charset
+                    mule-write-region-no-coding-system
+                    find-charset-region))
       (maybe-bind '(global-face-data
                    mark-active transient-mark-mode mouse-selection-click-count
                    mouse-selection-click-count-buffer buffer-display-table
@@ -46,7 +48,7 @@
                    gnus-newsgroup-name gnus-article-x-face-too-ugly
                    mail-mode-hook enable-multibyte-characters
                    adaptive-fill-first-line-regexp adaptive-fill-regexp
-                   url-current-mime-headers)))
+                   url-current-mime-headers buffer-file-coding-system)))
   (maybe-bind '(mail-mode-hook
                enable-multibyte-characters browse-url-browser-function
                adaptive-fill-first-line-regexp adaptive-fill-regexp

diff --git a/lisp/message.el b/lisp/message.el
index ae061e8..f2ba282 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1755,8 +1755,9 @@ text was killed."
     ;; text properties.
     (while (< b e)
       (subst-char-in-region
-       b (1+ b) (char-after b)
-       (aref message-caesar-translation-table (char-after b)))
+       (when (< (char-after b) 255)
+        b (1+ b) (char-after b)
+        (aref message-caesar-translation-table (char-after b))))
       (incf b))))
 
 (defun message-make-caesar-translation-table (n)

diff --git a/lisp/mm-bodies.el b/lisp/mm-bodies.el
index 5b33ac9..511d437 100644 (file)
--- a/lisp/mm-bodies.el
+++ b/lisp/mm-bodies.el
@@ -24,7 +24,11 @@
 
 ;;; Code:
 
+(eval-and-compile
+  (if (not (fboundp 'base64-encode-string))
+      (require 'base64)))
 (require 'mm-util)
+(require 'qp)
 
 (defun mm-encode-body ()
   "Encode a body.
@@ -66,7 +70,20 @@ If no encoding was done, nil is returned."
 
 (defun mm-body-encoding ()
   "Return the encoding of the current buffer."
-  (if (null (delq 'ascii (find-charset-region (point-min) (point-max))))
+  (if (and  
+       (null (delq 'ascii (find-charset-region (point-min) (point-max))))
+       ;;;!!!The following is necessary because the function
+       ;;;!!!above seems to return the wrong result under Emacs 20.3.
+       ;;;!!!Sometimes.
+       (save-excursion
+        (let (found)
+          (goto-char (point-min))
+          (while (and (not found)
+                      (not (eobp)))
+            (when (> (char-int (following-char)) 127)
+              (setq found t))
+            (forward-char 1))
+          (not found))))
       '7bit
     '8bit))
 
@@ -83,7 +100,9 @@ The characters in CHARSET should then be decoded."
        ((eq encoding 'quoted-printable)
        (quoted-printable-decode-region (point-min) (point-max)))
        ((eq encoding 'base64)
-       (base64-decode-region (point-min) (point-max)))
+       (condition-case ()
+           (base64-decode-region (point-min) (point-max))
+         (error nil)))
        ((memq encoding '(7bit 8bit binary))
        )
        (t
@@ -92,6 +111,7 @@ The characters in CHARSET should then be decoded."
       (let (mule-charset)
        (when (and charset
                   (setq mule-charset (mm-charset-to-coding-system charset))
+                  buffer-file-coding-system
                   (not (mm-coding-system-equal
                         buffer-file-coding-system mule-charset)))
          (mm-decode-coding-region (point-min) (point-max) mule-charset))))))

diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index 48ad195..9ae62a7 100644 (file)
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -24,36 +24,6 @@
 
 ;;; Code:
 
-(eval-and-compile
-  (if (fboundp 'decode-coding-string)
-      (fset 'mm-decode-coding-string 'decode-coding-string)
-    (fset 'mm-decode-coding-string (lambda (s a) s))))
-
-(eval-and-compile
-  (if (fboundp 'encode-coding-string)
-      (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)
@@ -91,6 +61,41 @@
                    chinese-cns11643-7))
   "Alist of MIME-charset/MULE-charsets.")
 
+
+(eval-and-compile
+  (if (fboundp 'decode-coding-string)
+      (fset 'mm-decode-coding-string 'decode-coding-string)
+    (fset 'mm-decode-coding-string (lambda (s a) s)))
+
+  (if (fboundp 'encode-coding-string)
+      (fset 'mm-encode-coding-string 'encode-coding-string)
+    (fset 'mm-encode-coding-string (lambda (s a) s)))
+
+  (if (fboundp 'encode-coding-region)
+      (fset 'mm-encode-coding-region 'encode-coding-region)
+    (fset 'mm-encode-coding-region 'ignore))
+
+  (if (fboundp 'decode-coding-region)
+      (fset 'mm-decode-coding-region 'decode-coding-region)
+    (fset 'mm-decode-coding-region 'ignore))
+
+  (if (fboundp 'coding-system-list)
+      (fset 'mm-coding-system-list 'coding-system-list)
+    (fset 'mm-coding-system-list 'ignore))
+
+  (if (fboundp 'coding-system-equal)
+      (fset 'mm-coding-system-equal 'coding-system-equal)
+    (fset 'mm-coding-system-equal 'equal))
+
+  (if (fboundp 'read-coding-system)
+      (fset 'mm-read-coding-system 'read-coding-system)
+    (defun mm-read-coding-system (prompt)
+      "Prompt the user for a coding system."
+      (completing-read
+       prompt (mapcar (lambda (s) (list (symbol-name (car s))))
+                     mm-mime-mule-charset-alist)))))
+
+
 (defvar mm-charset-coding-system-alist
   (let ((rest
         '((us-ascii . iso-8859-1)
@@ -107,6 +112,7 @@
     dest)
   "Charset/coding system alist.")
 
+
 (defun mm-mule-charset-to-mime-charset (charset)
   "Return the MIME charset corresponding to MULE CHARSET."
   (let ((alist mm-mime-mule-charset-alist)
@@ -172,12 +178,6 @@ used as the line break code type of the coding system."
   (when (string-match "charset *= *\"? *\\([-0-9a-zA-Z_]+\\)\"? *$" header)
     (intern (downcase (match-string 1 header)))))
 
-(defun mm-read-coding-system (prompt)
-  "Prompt the user for a coding system."
-  (completing-read
-   prompt (mapcar (lambda (s) (list (symbol-name (car s))))
-                 mm-mime-mule-charset-alist)))
-
 (provide 'mm-util)
 
 ;;; mm-util.el ends here

diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el
index a85f6a5..69e4f27 100644 (file)
--- a/lisp/rfc2047.el
+++ b/lisp/rfc2047.el
@@ -24,7 +24,9 @@
 
 ;;; Code:
 
-(require 'base64)
+(eval-and-compile
+  (if (not (fboundp 'base64-encode-string))
+      (require 'base64)))
 (require 'qp)
 (require 'mm-util)
 

diff --git a/texi/gnus.texi b/texi/gnus.texi
index eb74232..666b0ae 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename gnus
-@settitle Semi-gnus 6.0.07 Manual
+@settitle Semi-gnus 6.9.09 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.0.07 Manual
+@title Semi-gnus 6.9.09 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.0.07.
+This manual corresponds to Semi-gnus 6.9.09.
 
 @end ifinfo
 

diff --git a/texi/message.texi b/texi/message.texi
index 96122e7..d4710c7 100644 (file)
--- a/texi/message.texi
+++ b/texi/message.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename message
-@settitle Pterodactyl Message 0.13 Manual
+@settitle Pterodactyl Message 0.14 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.13 Manual
+@title Pterodactyl Message 0.14 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.13.  Message is
+This manual corresponds to Pterodactyl Message 0.14.  Message is
 distributed with the Gnus distribution bearing the same version number
 as this manual has.