(message-unquote-tokens): Remove all quotes.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2a1dfdf..7f98996 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-07-03  Paul Stodghill <stodghil@CS.Cornell.EDU>
+
+       * message.el (message-unquote-tokens): Remove all quotes.
+
 2000-07-03 00:29:08  Julien Gilles  <julien.gilles@bcv01y01.vz.cit.alcatel.fr>
 
        * gnus-ml.el: New file. 

diff --git a/lisp/message.el b/lisp/message.el
index 015f9c8..defd9ef 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1029,12 +1029,12 @@ should be sent in several parts. If it is nil, the size is unlimited."
                  (progn (forward-line ,(or n 1)) (point))))
 
 (defun message-unquote-tokens (elems)
-  "Remove leading and trailing double quotes (\") from quoted strings
-in list."
+  "Remove double quotes (\") from strings in list."
   (mapcar (lambda (item)
-            (if (string-match "^\"\\(.*\\)\"$" item)
-                (match-string 1 item)
-              item))
+            (while (string-match "^\\(.*\\)\"\\(.*\\)$" item)
+              (setq item (concat (match-string 1 item) 
+                                 (match-string 2 item))))
+            item)
           elems))
 
 (defun message-tokenize-header (header &optional separator)