Mercurial > emacs
comparison lisp/gnus/yenc.el @ 108287:c0d13767677a
Synch with Gnus trunk.
* mail/binhex.el (binhex-decode-region-internal)
* mail/uudecode.el (uudecode-decode-region-internal)
* net/dns.el (dns-read-string-name, dns-write, dns-read)
(dns-read-type, dns-query)
* pgg-parse.el (pgg-parse-armor)
* pgg.el (pgg-verify-region)
* sha1.el (sha1-string-external): Don't run set-buffer-multibyte for
XEmacs.
* net/imap.el (imap-disable-multibyte): Redefine them as a macro.
* nnweb.el (nnweb-gmane-search)
* yenc.el (yenc-decode-region): Don't run set-buffer-multibyte for
XEmacs.
* gnus-art.el (gnus-article-browse-html-parts)
* gnus-group.el (gnus-read-ephemeral-gmane-group)
(gnus-read-ephemeral-bug-grou): Use mm-make-temp-file instead of
make-temp-file.
* gnus-dired.el (gnus-dired-mode): Bind gnus-dired-mode-hook,
gnus-dired-mode-on-hook and gnus-dired-mode-off-hook for XEmacs when
compiling.
* gnus-ml.el (gnus-mailing-list-mode): Bind gnus-mailing-list-mode-hook,
gnus-mailing-list-mode-on-hook and gnus-mailing-list-mode-off-hook for
XEmacs when compiling.
* gnus-salt.el (gnus-pick-mode): Bind gnus-pick-mode-on-hook and
gnus-pick-mode-off-hook for XEmacs when compiling.
(gnus-binary-mode): Bind gnus-binary-mode-on-hook and
gnus-binary-mode-off-hook for XEmacs when compiling.
* gnus-sum.el (gnus-summary-limit-strange-charsets-predicate): Return
nil if char-charset is not available.
* sieve-manage.el (sieve-manage-disable-multibyte): Redefine them as a
macro.
* mm-url.el (mm-url-form-encode-xwfu): Use mm-encode-coding-string
instead of encode-coding-string.
* mm-util.el (mm-enable-multibyte, mm-disable-multibyte): Use (featurep
'xemacs) instead of mm-emacs-mule to switch function definitions.
(mm-with-unibyte-current-buffer): Make it a progn macro for XEmacs.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Fri, 07 May 2010 06:58:17 +0000 |
parents | 7ffbe3a6a8f2 |
children | 8d09094063d0 |
comparison
equal
deleted
inserted
replaced
108286:e7bdc5ae2810 | 108287:c0d13767677a |
---|---|
87 (when (re-search-forward "^=ypart.*$" end t) | 87 (when (re-search-forward "^=ypart.*$" end t) |
88 (setq first (match-end 0))) | 88 (setq first (match-end 0))) |
89 (when (re-search-forward "^=yend.*$" end t) | 89 (when (re-search-forward "^=yend.*$" end t) |
90 (setq last (match-beginning 0)) | 90 (setq last (match-beginning 0)) |
91 (setq footer-alist (yenc-parse-line (match-string 0))) | 91 (setq footer-alist (yenc-parse-line (match-string 0))) |
92 (with-current-buffer | 92 (setq work-buffer (generate-new-buffer " *yenc-work*")) |
93 (setq work-buffer (generate-new-buffer " *yenc-work*")) | 93 (unless (featurep 'xemacs) |
94 (set-buffer-multibyte nil)) | 94 (with-current-buffer work-buffer (set-buffer-multibyte nil))) |
95 (while (< first last) | 95 (while (< first last) |
96 (setq char (char-after first)) | 96 (setq char (char-after first)) |
97 (cond ((or (eq char ?\r) | 97 (cond ((or (eq char ?\r) |
98 (eq char ?\n))) | 98 (eq char ?\n))) |
99 ((eq char ?=) | 99 ((eq char ?=) |