From 49904df12a9d514a2ee05564c1491c952d374b48 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 23 Jul 2004 08:42:51 +0000 Subject: [PATCH] Synch to No Gnus 200407230842. --- lisp/ChangeLog | 5 +++++ lisp/rfc2047.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3f8dbde..6017c7b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-07-23 Katsumi Yamaoka + + * rfc2047.el (rfc2047-encode-region): Fix last change. + (rfc2047-encode-parameter): Remove useless concat. + 2004-07-22 Katsumi Yamaoka * rfc2047.el (rfc2047-encode-region): Check carefully whether to diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el index ac892ee..46ee8be 100644 --- a/lisp/rfc2047.el +++ b/lisp/rfc2047.el @@ -409,6 +409,7 @@ Dynamically bind `rfc2047-encoding-type' to change that." (while (re-search-forward encodable-regexp end t)) (< begin (point))) + (goto-char begin) (or (not (re-search-forward "\\Sw" end t)) (progn (goto-char (match-beginning 0)) @@ -717,7 +718,7 @@ it, put the following line in your ~/.gnus.el file: (string (rfc2047-encode-string value))) (if (string-match "[][()<>@,;:\\\"/?=]" ;; tspecials string) - (concat param "=" (format "%S" string)) + (format "%s=%S" param string) (concat param "=" string)))) ;;; -- 1.7.10.4