From 003464d4c3f5462fe720bb859ad7a689d1dafb3f Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Sat, 4 Feb 2006 21:38:54 +0000 Subject: [PATCH] (rfc2231-parse-string): Revert 2006-02-03 change. (rfc2231-encode-string): Make param*=value always begin with LWSP. --- lisp/ChangeLog | 5 +++++ lisp/rfc2231.el | 6 +----- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 380735ffc..4cd059e02 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-02-04 Katsumi Yamaoka + + * rfc2231.el (rfc2231-parse-string): Revert 2006-02-03 change. + (rfc2231-encode-string): Make param*=value always begin with LWSP. + 2006-02-03 Andreas Seltenreich * nnweb.el (nnweb-request-group): Avoid growing overview files. diff --git a/lisp/rfc2231.el b/lisp/rfc2231.el index fb2d07032..799fb8fc1 100644 --- a/lisp/rfc2231.el +++ b/lisp/rfc2231.el @@ -53,10 +53,6 @@ The list will be on the form display-name mailbox c display-string parameters attribute value type subtype number encoded prev-attribute prev-encoded) - ;; Some mailer (e.g. Thunderbird 1.5) doesn't terminate each - ;; line with semicolon when folding a long parameter value. - (while (string-match "\\([^\t\n\r ;]\\)[\t ]*\r?\n[\t ]+" string) - (setq string (replace-match "\\1;\n " nil nil string))) (ietf-drums-init (mail-header-remove-whitespace (mail-header-remove-comments string))) (let ((table (copy-syntax-table ietf-drums-syntax-table))) @@ -239,7 +235,7 @@ These look like \"us-ascii'en-us'This%20is%20%2A%2A%2Afun%2A%2A%2A\"." (forward-char 1))) (goto-char (point-min)) (if (not broken) - (insert param "*=") + (insert "\n " param "*=") (while (not (eobp)) (insert (if (>= num 0) " " "\n ") param "*" (format "%d" (incf num)) "*=") -- 2.34.1