procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(nnimap-demule-use-string-to-multibyte): New temporary

Browse source 
variable for debugging bug#464 and bug#1174.
(nnimap-demule): Use it.
This commit is contained in:
Reiner Steib 2008-11-29 15:26:49 +00:00
parent 8cc53f96e5
commit 9255ec865f
2 changed files with 29 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/gnus/ChangeLog
View file

@ -1,3 +1,9 @@
2008-11-29 Reiner Steib <Reiner.Steib@gmx.de>
* nnimap.el (nnimap-demule-use-string-to-multibyte): New temporary
variable for debugging bug#464 and bug#1174.
(nnimap-demule): Use it.
2008-11-21 Stefan Monnier <monnier@iro.umontreal.ca>
* message.el (message-send-mail): Just set the buffer to unibyte

23
lisp/gnus/nnimap.el
View file

@ -901,12 +901,35 @@ function is generally only called when Gnus is shutting down."
(when (nnimap-possibly-change-server server)
(nnoo-status-message 'nnimap server)))
(defvar nnimap-demule-use-string-to-multibyte (fboundp 'string-to-multibyte)
"Temporary internal debug variable.
If you have problems (UTF-8 not decoded correctly on IMAP) with
the default value, please report it as a bug!")
;; FIXME: Clarify if we need to make this variable conditional on the Emacs
;; version (Emacs 22 vs. Emacs 23;Emacs 21 doesn't have `string-to-multibyte'
;; anyhow). --rsteib
;;
;; http://thread.gmane.org/gmane.emacs.gnus.general/67112
;; (bug#464, reported by James Cloos)
;; http://thread.gmane.org/gmane.emacs.bugs/21524
;; (bug#1174, reported by Frank Schmitt)
(defun nnimap-demule (string)
;; BEWARE: we used to use string-as-multibyte here which is braindead
;; because it will turn accidental emacs-mule-valid byte sequences
;; into multibyte chars. --Stef
;; Reverted, braindead got 7.5 out of 10 on imdb, so it can't be
;; that bad. --Simon
(gnus-message 9 "nnimap-demule-use-string-to-multibyte: %s"
nnimap-demule-use-string-to-multibyte)
(if nnimap-demule-use-string-to-multibyte
;; Stefan
(funcall (if (and (fboundp 'string-to-multibyte)
(subrp (symbol-function 'string-to-multibyte)))
'string-to-multibyte
'identity)
(or string "")))
;; Simon
(funcall (if (and (fboundp 'string-as-multibyte)
(subrp (symbol-function 'string-as-multibyte)))
'string-as-multibyte