projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
*** empty log message ***
[gnus]
/
lisp
/
gnus.el
diff --git
a/lisp/gnus.el
b/lisp/gnus.el
index
886ee54
..
f25934a
100644
(file)
--- a/
lisp/gnus.el
+++ b/
lisp/gnus.el
@@
-42,7
+42,7
@@
"Score and kill file handling."
:group 'gnus )
"Score and kill file handling."
:group 'gnus )
-(defconst gnus-version-number "0.
62
"
+(defconst gnus-version-number "0.
70
"
"Version number for this version of Gnus.")
(defconst gnus-version (format "Red Gnus v%s" gnus-version-number)
"Version number for this version of Gnus.")
(defconst gnus-version (format "Red Gnus v%s" gnus-version-number)
@@
-88,7
+88,8
@@
be set in `.emacs' instead."
(defalias 'gnus-character-to-event 'identity)
(defalias 'gnus-add-text-properties 'add-text-properties)
(defalias 'gnus-put-text-property 'put-text-property)
(defalias 'gnus-character-to-event 'identity)
(defalias 'gnus-add-text-properties 'add-text-properties)
(defalias 'gnus-put-text-property 'put-text-property)
- (defalias 'gnus-mode-line-buffer-identification 'identity))
+ (defalias 'gnus-mode-line-buffer-identification 'identity)
+ (defalias 'gnus-key-press-event-p 'numberp))
;; The XEmacs people think this is evil, so it must go.
(defun custom-face-lookup (&optional fg bg stipple bold italic underline)
;; The XEmacs people think this is evil, so it must go.
(defun custom-face-lookup (&optional fg bg stipple bold italic underline)
@@
-172,6
+173,8
@@
be set in `.emacs' instead."
(while (search-forward "\t" nil t)
(replace-match " " t t)))))
(while (search-forward "\t" nil t)
(replace-match " " t t)))))
+(defvar gnus-simple-splash nil)
+
(defun gnus-group-startup-message (&optional x y)
"Insert startup message in current buffer."
;; Insert the message.
(defun gnus-group-startup-message (&optional x y)
"Insert startup message in current buffer."
;; Insert the message.
@@
-211,6
+214,7
@@
be set in `.emacs' instead."
(put-text-property (point-min) (point-max) 'face 'gnus-splash-face)
(goto-char (point-min))
(setq mode-line-buffer-identification gnus-version)
(put-text-property (point-min) (point-max) 'face 'gnus-splash-face)
(goto-char (point-min))
(setq mode-line-buffer-identification gnus-version)
+ (setq gnus-simple-splash t)
(set-buffer-modified-p t))
(eval-when (load)
(set-buffer-modified-p t))
(eval-when (load)
@@
-837,12
+841,10
@@
face."
gnus-article-hide-boring-headers
gnus-article-treat-overstrike
gnus-article-maybe-highlight
gnus-article-hide-boring-headers
gnus-article-treat-overstrike
gnus-article-maybe-highlight
- gnus-article-de-quoted-unreadable
gnus-article-display-x-face)
'(gnus-article-hide-headers-if-wanted
gnus-article-hide-boring-headers
gnus-article-treat-overstrike
gnus-article-display-x-face)
'(gnus-article-hide-headers-if-wanted
gnus-article-hide-boring-headers
gnus-article-treat-overstrike
- gnus-article-de-quoted-unreadable
gnus-article-maybe-highlight))
"Controls how the article buffer will look.
gnus-article-maybe-highlight))
"Controls how the article buffer will look.
@@
-1216,6
+1218,7
@@
with some simple extensions.
%t Number of articles under the current thread (number).
%e Whether the thread is empty or not (character).
%l GroupLens score (string).
%t Number of articles under the current thread (number).
%e Whether the thread is empty or not (character).
%l GroupLens score (string).
+%V Total thread score (number).
%P The line number (number).
%u User defined specifier. The next character in the format string should
be a letter. Gnus will call the function gnus-user-format-function-X,
%P The line number (number).
%u User defined specifier. The next character in the format string should
be a letter. Gnus will call the function gnus-user-format-function-X,
@@
-1350,7
+1353,7
@@
This restriction may disappear in later versions of Gnus."
(defun gnus-info-set-entry (info entry number)
;; Extend the info until we have enough elements.
(defun gnus-info-set-entry (info entry number)
;; Extend the info until we have enough elements.
- (while (< (length info) number)
+ (while (<
=
(length info) number)
(nconc info (list nil)))
;; Set the entry.
(setcar (nthcdr number info) entry))
(nconc info (list nil)))
;; Set the entry.
(setcar (nthcdr number info) entry))
@@
-1954,7
+1957,7
@@
Disallow illegal group names."
group)
(while (not group)
(when (string-match
group)
(while (not group)
(when (string-match
- "[ `'\"/]\\|^$"
+ "[
:
`'\"/]\\|^$"
(setq group (read-string (concat prefix prompt)
"" 'gnus-group-history)))
(setq prefix (format "Illegal group name: \"%s\". " group)
(setq group (read-string (concat prefix prompt)
"" 'gnus-group-history)))
(setq prefix (format "Illegal group name: \"%s\". " group)
@@
-2012,11
+2015,14
@@
As opposed to `gnus', this command will not connect to the local server."
(defun gnus-other-frame (&optional arg)
"Pop up a frame to read news."
(interactive "P")
(defun gnus-other-frame (&optional arg)
"Pop up a frame to read news."
(interactive "P")
- (if (gnus-alive-p)
- (let ((pop-up-frames t))
- (gnus arg))
- (select-frame (make-frame))
- (gnus arg)))
+ (let ((window (get-buffer-window gnus-group-buffer)))
+ (cond (window
+ (select-frame (window-frame window)))
+ ((= (length (frame-list)) 1)
+ (select-frame (make-frame)))
+ (t
+ (other-frame 1))))
+ (gnus arg))
;;;###autoload
(defun gnus (&optional arg dont-connect slave)
;;;###autoload
(defun gnus (&optional arg dont-connect slave)