Mercurial > emacs
comparison lisp/gnus/gnus-salt.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 | f2dd5d43653f |
children | 8d09094063d0 |
comparison
equal
deleted
inserted
replaced
108286:e7bdc5ae2810 | 108287:c0d13767677a |
---|---|
98 ["Region" gnus-uu-unmark-region t] | 98 ["Region" gnus-uu-unmark-region t] |
99 ["Regexp" gnus-uu-unmark-by-regexp t] | 99 ["Regexp" gnus-uu-unmark-by-regexp t] |
100 ["Buffer" gnus-summary-unmark-all-processable t]) | 100 ["Buffer" gnus-summary-unmark-all-processable t]) |
101 ["Start reading" gnus-pick-start-reading t] | 101 ["Start reading" gnus-pick-start-reading t] |
102 ["Switch pick mode off" gnus-pick-mode gnus-pick-mode])))) | 102 ["Switch pick mode off" gnus-pick-mode gnus-pick-mode])))) |
103 | |
104 (eval-when-compile | |
105 (when (featurep 'xemacs) | |
106 (defvar gnus-pick-mode-on-hook) | |
107 (defvar gnus-pick-mode-off-hook))) | |
103 | 108 |
104 (define-minor-mode gnus-pick-mode | 109 (define-minor-mode gnus-pick-mode |
105 "Minor mode for providing a pick-and-read interface in Gnus summary buffers. | 110 "Minor mode for providing a pick-and-read interface in Gnus summary buffers. |
106 | 111 |
107 \\{gnus-pick-mode-map}" | 112 \\{gnus-pick-mode-map}" |
329 (unless (boundp 'gnus-binary-menu) | 334 (unless (boundp 'gnus-binary-menu) |
330 (easy-menu-define | 335 (easy-menu-define |
331 gnus-binary-menu gnus-binary-mode-map "" | 336 gnus-binary-menu gnus-binary-mode-map "" |
332 '("Pick" | 337 '("Pick" |
333 ["Switch binary mode off" gnus-binary-mode t])))) | 338 ["Switch binary mode off" gnus-binary-mode t])))) |
339 | |
340 (eval-when-compile | |
341 (when (featurep 'xemacs) | |
342 (defvar gnus-binary-mode-on-hook) | |
343 (defvar gnus-binary-mode-off-hook))) | |
334 | 344 |
335 (define-minor-mode gnus-binary-mode | 345 (define-minor-mode gnus-binary-mode |
336 "Minor mode for providing a binary group interface in Gnus summary buffers." | 346 "Minor mode for providing a binary group interface in Gnus summary buffers." |
337 :lighter " Binary" :keymap gnus-binary-mode-map | 347 :lighter " Binary" :keymap gnus-binary-mode-map |
338 (cond | 348 (cond |