Mercurial > emacs

diff lisp/international/utf-7.el @ 80235:58e18c83bf75

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(utf-7-encode): Never skip the trailing - for the `imap' variant.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 28 Feb 2008 19:43:51 +0000
parents b6fdfff4ae81
children 4054054dd212
line wrap: on
line diff
--- a/lisp/international/utf-7.el	Thu Feb 28 19:41:44 2008 +0000
+++ b/lisp/international/utf-7.el	Thu Feb 28 19:43:51 2008 +0000
@@ -126,7 +126,9 @@
 	      ;; consistent with iconv, at least regarding `='.
 	      (skip-chars-forward "^= \t\n")
 	      (delete-region (point) (point-max))))
-	  (unless (eobp)
+          ;; RFC2060 stipulates that all names MUST end in US-ASCII (i.e.
+          ;; a name that ends with a Unicode octet MUST end with a "-").
+	  (if (or imap (not (eobp)))
 	    (insert ?-)))))
     nil))