Synch with Gnus and `t-gnus-6_14'.

diff --git a/ChangeLog b/ChangeLog
index d5eebc3..3a4a465 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2000-10-31  Katsumi Yamaoka <yamaoka@jpl.org>
+
+       * lisp/gnus-sum.el (gnus-summary-insert-line): Work with quoted
+       double-quote charcters.
+       (gnus-summary-prepare-threads): Ditto.
+
 2000-10-30  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * lisp/ptexinfmt.el (ptexinfmt-disable-broken-notice-flag): Renamed

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0d46836..b6d821d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-10-31 00:04:35  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * mml2015.el: Fix doc. Remove bogus mml2015-setup.
+
 2000-10-30 23:37:07  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * qp.el (quoted-printable-encode-region): Replace leading - when

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 2719222..e1a14e8 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -2676,9 +2676,8 @@ buffer that was in action when the last article was fetched."
          (cond
           ((string-match "<[^>]+> *$" gnus-tmp-from)
            (let ((beg (match-beginning 0)))
-             (or (and (string-match "^\"[^\"]*\"" gnus-tmp-from)
-                      (substring gnus-tmp-from (1+ (match-beginning 0))
-                                 (1- (match-end 0))))
+             (or (and (string-match "^\".+\"" gnus-tmp-from)
+                      (substring gnus-tmp-from 1 (1- (match-end 0))))
                  (substring gnus-tmp-from 0 beg))))
           ((string-match "(.+)" gnus-tmp-from)
            (substring gnus-tmp-from
@@ -4065,9 +4064,8 @@ or a straight list of headers."
             (cond
              ((string-match "<[^>]+> *$" gnus-tmp-from)
               (setq beg-match (match-beginning 0))
-              (or (and (string-match "^\"[^\"]*\"" gnus-tmp-from)
-                       (substring gnus-tmp-from (1+ (match-beginning 0))
-                                  (1- (match-end 0))))
+              (or (and (string-match "^\".+\"" gnus-tmp-from)
+                       (substring gnus-tmp-from 1 (1- (match-end 0))))
                   (substring gnus-tmp-from 0 beg-match)))
              ((string-match "(.+)" gnus-tmp-from)
               (substring gnus-tmp-from

diff --git a/lisp/mml2015.el b/lisp/mml2015.el
index 4153f5e..e9301ff 100644 (file)
--- a/lisp/mml2015.el
+++ b/lisp/mml2015.el
@@ -23,16 +23,6 @@
 
 ;;; Commentary:
 
-;; Installation: put the following statements in ~/.gnus:
-;;    (require 'mml2015)
-;;    (require 'gnus-art)
-;;    (mml2015-setup)
-;; You may have to make sure that the directory where this file lives
-;; is mentioned in `load-path'.
-;; 
-;; Insert an attribute, postprocess=pgp-sign (or pgp-encrypt), into
-;; the mml tag to be signed (or encrypted).
-
 ;;; Code:
 
 (eval-when-compile (require 'cl))
@@ -163,10 +153,6 @@
 (defun mml2015-sign (cont)
   (funcall mml2015-sign-function cont))
 
-;;;###autoload
-(defun mml2015-setup ()
-  )
-
 (provide 'mml2015)
 
 ;;; mml2015.el ends here

diff --git a/todo b/todo
index bc35043..f99a5cb 100644 (file)
--- a/todo
+++ b/todo
@@ -1354,6 +1354,8 @@ exceeding lisp nesting on huge groups.
  Is the "+" character illegal in newsgroup names?  Is there any way
  in Gnus to work around this?  (gnus 5.6.45 - XEmacs 20.4)
 
+ [It works in 5.8.8.]
+
 *  When `#F', do:
 
       Subject: Answer to your mails 01.01.1999-01.05.1999