From: yamaoka <yamaoka>
Date: Tue, 31 Oct 2000 06:55:05 +0000 (+0000)
Subject: Synch with Gnus and `t-gnus-6_14'.
X-Git-Tag: t-gnus-6_14-quimby-before-installer-changed-~32
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cb36f3fac1cb3f34214a3c41a604a807680b1bb6;p=elisp%2Fgnus.git-

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

diff --git a/ChangeLog b/ChangeLog
index d5eebc3..3a4a465 100644
--- 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
--- 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
--- 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
--- 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
--- 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