projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
7225630
)
Synch with Oort Gnus.
author
yamaoka
<yamaoka>
Wed, 14 Feb 2001 07:02:56 +0000
(07:02 +0000)
committer
yamaoka
<yamaoka>
Wed, 14 Feb 2001 07:02:56 +0000
(07:02 +0000)
lisp/ChangeLog
patch
|
blob
|
history
lisp/gnus-sum.el
patch
|
blob
|
history
diff --git
a/lisp/ChangeLog
b/lisp/ChangeLog
index
c1021fc
..
beae4ac
100644
(file)
--- a/
lisp/ChangeLog
+++ b/
lisp/ChangeLog
@@
-1,3
+1,13
@@
+2001-02-14 00:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>
+
+ * gnus-sum.el (gnus-summary-print-article): Redo highlight.
+
+2001-02-13 21:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>
+
+ * gnus-sum.el (gnus-summary-read-group-1): Remove
+ gnus-summary-set-local-parameters.
+ (gnus-summary-setup-buffer): Put it here.
+
2001-02-13 20:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>
* gnus.el (to-address): Define parameter.
2001-02-13 20:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>
* gnus.el (to-address): Define parameter.
diff --git
a/lisp/gnus-sum.el
b/lisp/gnus-sum.el
index
40335d0
..
ded62b8
100644
(file)
--- a/
lisp/gnus-sum.el
+++ b/
lisp/gnus-sum.el
@@
-2659,6
+2659,8
@@
display only a single character."
(make-local-variable 'gnus-article-current)
(make-local-variable 'gnus-original-article-buffer))
(setq gnus-newsgroup-name group)
(make-local-variable 'gnus-article-current)
(make-local-variable 'gnus-original-article-buffer))
(setq gnus-newsgroup-name group)
+ ;; Set any local variables in the group parameters.
+ (gnus-summary-set-local-parameters gnus-newsgroup-name)
t)))
(defun gnus-set-global-variables ()
t)))
(defun gnus-set-global-variables ()
@@
-3053,8
+3055,6
@@
If SHOW-ALL is non-nil, already read articles are also listed."
(gnus-active gnus-newsgroup-name)))
;; You can change the summary buffer in some way with this hook.
(gnus-run-hooks 'gnus-select-group-hook)
(gnus-active gnus-newsgroup-name)))
;; You can change the summary buffer in some way with this hook.
(gnus-run-hooks 'gnus-select-group-hook)
- ;; Set any local variables in the group parameters.
- (gnus-summary-set-local-parameters gnus-newsgroup-name)
(gnus-update-format-specifications
nil 'summary 'summary-mode 'summary-dummy)
(gnus-update-summary-mark-positions)
(gnus-update-format-specifications
nil 'summary 'summary-mode 'summary-dummy)
(gnus-update-summary-mark-positions)
@@
-7576,6
+7576,12
@@
to save in."
(copy-to-buffer buffer (point-min) (point-max))
(set-buffer buffer)
(gnus-article-delete-invisible-text)
(copy-to-buffer buffer (point-min) (point-max))
(set-buffer buffer)
(gnus-article-delete-invisible-text)
+ (when (gnus-visual-p 'article-highlight 'highlight)
+ ;; Copy-to-buffer doesn't copy overlay. So redo
+ ;; highlight.
+ (let ((gnus-article-buffer buffer))
+ (gnus-article-highlight-citation t)
+ (gnus-article-highlight-signature)))
(let ((ps-left-header
(list
(concat "("
(let ((ps-left-header
(list
(concat "("