andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge from gnus--devo--0

Browse source 
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1517
This commit is contained in:
Miles Bader 2009-01-14 07:51:26 +00:00
parent 0f9eec14d9
commit 548f737d3a
4 changed files with 48 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
lisp/gnus/ChangeLog
View file

@ -1,8 +1,34 @@
2009-01-14 Katsumi Yamaoka <yamaoka@jpl.org>
* mm-util.el (mm-coding-system-priorities): Protect against nil value
of current-language-environment.
2009-01-13 Reiner Steib <Reiner.Steib@gmx.de>
* nnfolder.el (nnfolder-read-folder): Check if most-positive-fixnum is
available at runtime.
2009-01-13 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-art.el (article-date-ut): Fix end point of narrowing.
2009-01-11 Aidan Kehoe <kehoea@parhasard.net>
* nnfolder.el (nnfolder-read-folder): The (lsh -1 -1) trick to generate
the greatest positive fixnum value doesn't work under an XEmacs with
bignum support; use the most-positive-fixnum constant instead,
available since Emacs 21.1 with cl and XEmacs 21.1.
2009-01-10 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-sum.el (gnus-summary-next-article): Revert last change by which
XEmacs gets not to work.
2009-01-09 Katsumi Yamaoka <yamaoka@jpl.org>
* mm-util.el (mm-coding-system-priorities): Allow the value like
"Japanese (UTF-8)" of current-language-environment.
2009-01-09 Glenn Morris <rgm@gnu.org>
* gnus-sum.el (gnus-summary-next-article): Replace last-command-char

12
lisp/gnus/gnus-art.el
View file

@ -3404,9 +3404,15 @@ should replace the \"Date:\" one, or should be added below it."
(point) 'original-date))
(setq date (get-text-property pos 'original-date))
t))
(narrow-to-region pos (or (text-property-any pos (point-max)
'original-date nil)
(point-max)))
(narrow-to-region
pos (if (setq pos (text-property-any pos (point-max)
'original-date nil))
(progn
(goto-char pos)
(if (or (bolp) (eobp))
(point)
(1+ (point))))
(point-max)))
(goto-char (point-min))
(when (re-search-forward tdate-regexp nil t)
(setq bface (get-text-property (point-at-bol) 'face)

17
lisp/gnus/mm-util.el
View file

@ -840,13 +840,16 @@ Valid elements include:
"A table of the difference character between ISO-8859-X and ISO-8859-15.")
(defcustom mm-coding-system-priorities
(if (boundp 'current-language-environment)
(let ((lang (symbol-value 'current-language-environment)))
(cond ((string= lang "Japanese")
;; Japanese users prefer iso-2022-jp to euc-japan or
;; shift_jis, however iso-8859-1 should be used when
;; there are only ASCII text and Latin-1 characters.
'(iso-8859-1 iso-2022-jp iso-2022-jp-2 shift_jis utf-8)))))
(let ((lang (if (boundp 'current-language-environment)
(symbol-value 'current-language-environment))))
(cond (;; XEmacs without Mule but with `file-coding'.
(not lang) nil)
;; In XEmacs 21.5 it may be the one like "Japanese (UTF-8)".
((string-match "\\`Japanese" lang)
;; Japanese users prefer iso-2022-jp to euc-japan or
;; shift_jis, however iso-8859-1 should be used when
;; there are only ASCII text and Latin-1 characters.
'(iso-8859-1 iso-2022-jp iso-2022-jp-2 shift_jis utf-8))))
"Preferred coding systems for encoding outgoing messages.
More than one suitable coding system may be found for some text.

4
lisp/gnus/nnfolder.el
View file

@ -925,7 +925,9 @@ deleted. Point is left where the deleted region was."
(active (or (cadr (assoc group nnfolder-group-alist))
(cons 1 0)))
(scantime (assoc group nnfolder-scantime-alist))
(minid (lsh -1 -1))
(minid (or (and (boundp 'most-positive-fixnum)
most-positive-fixnum)
(lsh -1 -1)))
maxid start end newscantime
novbuf articles newnum
buffer-read-only)