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:
6043ce1
)
Sync
author
yamaoka
<yamaoka>
Fri, 9 Jun 2000 13:10:30 +0000
(13:10 +0000)
committer
yamaoka
<yamaoka>
Fri, 9 Jun 2000 13:10:30 +0000
(13:10 +0000)
with `t-gnus-6_14'.
ChangeLog
patch
|
blob
|
history
lisp/gnus.el
patch
|
blob
|
history
diff --git
a/ChangeLog
b/ChangeLog
index
f96780d
..
be4d824
100644
(file)
--- a/
ChangeLog
+++ b/
ChangeLog
@@
-1,3
+1,9
@@
+2000-06-09 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * lisp/gnus.el (gnus-news-group-p): Sync with Gnus.
+ (gnus-select-method): Remove "*" from doc string.
+ (gnus-group-startup-message): Use `dino' colors.
+
2000-06-08 Katsumi Yamaoka <yamaoka@jpl.org>
* lisp/message.el (message-fix-before-sending): Expose all
2000-06-08 Katsumi Yamaoka <yamaoka@jpl.org>
* lisp/message.el (message-fix-before-sending): Expose all
diff --git
a/lisp/gnus.el
b/lisp/gnus.el
index
03b3ccc
..
553db6d
100644
(file)
--- a/
lisp/gnus.el
+++ b/
lisp/gnus.el
@@
-752,8
+752,16
@@
be set in `.emacs' instead."
(cond
((and (fboundp 'find-image)
(display-graphic-p)
(cond
((and (fboundp 'find-image)
(display-graphic-p)
- (let ((image (find-image '((:type xpm :file "gnus.xpm")
- (:type xbm :file "gnus.xbm")))))
+ (let ((image
+ (find-image
+ `((:type xpm :file "gnus.xpm"
+ :color-symbols
+ (("thing" . "#724214")
+ ("shadow" . "#1e3f03")
+ ("background" . ,(face-background 'default))))
+ (:type xbm :file "gnus.xbm"
+ :foreground ,(face-foreground 'gnus-splash-face)
+ :background ,(face-background 'default))))))
(when image
(insert-image image)
(goto-char (point-min))
(when image
(insert-image image)
(goto-char (point-min))
@@
-769,6
+777,8
@@
be set in `.emacs' instead."
" based on " gnus-original-product-name " v"
gnus-original-version-number "\n")
(goto-char (point-min))
" based on " gnus-original-product-name " v"
gnus-original-version-number "\n")
(goto-char (point-min))
+ (put-text-property (point) (gnus-point-at-eol)
+ 'face 'gnus-splash-face)
(insert-char ?\ ;; space
(max 0 (/ (- (window-width) (gnus-point-at-eol)) 2)))
(forward-line 1)
(insert-char ?\ ;; space
(max 0 (/ (- (window-width) (gnus-point-at-eol)) 2)))
(forward-line 1)
@@
-919,7
+929,7
@@
used to 899, you would say something along these lines:
nil
(list gnus-nntp-service)))
(error nil))
nil
(list gnus-nntp-service)))
(error nil))
- "*Default method for selecting a newsgroup.
+ "Default method for selecting a newsgroup.
This variable should be a list, where the first element is how the
news is to be fetched, the second is the address.
This variable should be a list, where the first element is how the
news is to be fetched, the second is the address.
@@
-2322,7
+2332,14
@@
that that variable is buffer-local to the summary buffers."
"Return non-nil if GROUP (and ARTICLE) come from a news server."
(or (gnus-member-of-valid 'post group) ; Ordinary news group.
(and (gnus-member-of-valid 'post-mail group) ; Combined group.
"Return non-nil if GROUP (and ARTICLE) come from a news server."
(or (gnus-member-of-valid 'post group) ; Ordinary news group.
(and (gnus-member-of-valid 'post-mail group) ; Combined group.
- (eq (gnus-request-type group article) 'news))))
+ (if (or (null article)
+ (not (< article 0)))
+ (eq (gnus-request-type group article) 'news)
+ (if (not (vectorp article))
+ nil
+ ;; It's a real article.
+ (eq (gnus-request-type group (mail-header-id article))
+ 'news))))))
;; Returns a list of writable groups.
(defun gnus-writable-groups ()
;; Returns a list of writable groups.
(defun gnus-writable-groups ()