Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
548f737d
Commit
548f737d
authored
Jan 14, 2009
by
Miles Bader
Browse files
Merge from gnus--devo--0
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1517
parent
0f9eec14
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
48 additions
and
11 deletions
+48
-11
lisp/gnus/ChangeLog
lisp/gnus/ChangeLog
+26
-0
lisp/gnus/gnus-art.el
lisp/gnus/gnus-art.el
+9
-3
lisp/gnus/mm-util.el
lisp/gnus/mm-util.el
+10
-7
lisp/gnus/nnfolder.el
lisp/gnus/nnfolder.el
+3
-1
No files found.
lisp/gnus/ChangeLog
View file @
548f737d
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
...
...
lisp/gnus/gnus-art.el
View file @
548f737d
...
...
@@ -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)
...
...
lisp/gnus/mm-util.el
View file @
548f737d
...
...
@@ -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.
...
...
lisp/gnus/nnfolder.el
View file @
548f737d
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment