projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
2000-10-07 08:19:17 ShengHuo ZHU <zsh@cs.rochester.edu>
[gnus]
/
lisp
/
gnus-art.el
diff --git
a/lisp/gnus-art.el
b/lisp/gnus-art.el
index
992c87a
..
d8f5fe0
100644
(file)
--- a/
lisp/gnus-art.el
+++ b/
lisp/gnus-art.el
@@
-2854,6
+2854,7
@@
If ALL-HEADERS is non-nil, no headers are hidden."
(gnus-set-mode-line 'article))
(article-goto-body)
(set-window-point (get-buffer-window (current-buffer)) (point))
(gnus-set-mode-line 'article))
(article-goto-body)
(set-window-point (get-buffer-window (current-buffer)) (point))
+ (gnus-configure-windows 'article)
t))))))
;;;###autoload
t))))))
;;;###autoload
@@
-3269,8
+3270,8
@@
In no internal viewer is available, use an external viewer."
;; window, overlay, position.
(if (mm-handle-displayed-p
(if overlay
;; window, overlay, position.
(if (mm-handle-displayed-p
(if overlay
- (with-current-buffer (overlay-buffer overlay)
- (widget-get (widget-at (overlay-start overlay))
+ (with-current-buffer (
gnus-
overlay-buffer overlay)
+ (widget-get (widget-at (
gnus-
overlay-start overlay))
:mime-handle))
(widget-get widget/window :mime-handle)))
"hide" "show")
:mime-handle))
(widget-get widget/window :mime-handle)))
"hide" "show")
@@
-4742,11
+4743,13
@@
For example:
(funcall (cadr elem)))))))
;; Dynamic variables.
(funcall (cadr elem)))))))
;; Dynamic variables.
-(defvar part-number)
-(defvar total-parts)
-(defvar type)
-(defvar condition)
-(defvar length)
+(eval-when-compile
+ (defvar part-number)
+ (defvar total-parts)
+ (defvar type)
+ (defvar condition)
+ (defvar length))
+
(defun gnus-treat-predicate (val)
(cond
((null val)
(defun gnus-treat-predicate (val)
(cond
((null val)