projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(gnus-point-at-bol, gnus-point-at-eol): Remove.
[gnus]
/
lisp
/
gnus-topic.el
diff --git
a/lisp/gnus-topic.el
b/lisp/gnus-topic.el
index
eea18ef
..
da404a5
100644
(file)
--- a/
lisp/gnus-topic.el
+++ b/
lisp/gnus-topic.el
@@
-104,16
+104,16
@@
See Info node `(gnus)Formatting Variables'."
(defun gnus-group-topic-name ()
"The name of the topic on the current line."
(defun gnus-group-topic-name ()
"The name of the topic on the current line."
- (let ((topic (get-text-property (
gnus-
point-at-bol) 'gnus-topic)))
+ (let ((topic (get-text-property (point-at-bol) 'gnus-topic)))
(and topic (symbol-name topic))))
(defun gnus-group-topic-level ()
"The level of the topic on the current line."
(and topic (symbol-name topic))))
(defun gnus-group-topic-level ()
"The level of the topic on the current line."
- (get-text-property (
gnus-
point-at-bol) 'gnus-topic-level))
+ (get-text-property (point-at-bol) 'gnus-topic-level))
(defun gnus-group-topic-unread ()
"The number of unread articles in topic on the current line."
(defun gnus-group-topic-unread ()
"The number of unread articles in topic on the current line."
- (get-text-property (
gnus-
point-at-bol) 'gnus-topic-unread))
+ (get-text-property (point-at-bol) 'gnus-topic-unread))
(defun gnus-topic-unread (topic)
"Return the number of unread articles in TOPIC."
(defun gnus-topic-unread (topic)
"Return the number of unread articles in TOPIC."
@@
-126,7
+126,7
@@
See Info node `(gnus)Formatting Variables'."
(defun gnus-topic-visible-p ()
"Return non-nil if the current topic is visible."
(defun gnus-topic-visible-p ()
"Return non-nil if the current topic is visible."
- (get-text-property (
gnus-
point-at-bol) 'gnus-topic-visible))
+ (get-text-property (point-at-bol) 'gnus-topic-visible))
(defun gnus-topic-articles-in-topic (entries)
(let ((total 0)
(defun gnus-topic-articles-in-topic (entries)
(let ((total 0)
@@
-435,6
+435,8
@@
If LOWEST is non-nil, list all newsgroups of level LOWEST or higher."
(and gnus-group-listed-groups
(copy-sequence gnus-group-listed-groups))))
(and gnus-group-listed-groups
(copy-sequence gnus-group-listed-groups))))
+ (gnus-update-format-specifications nil 'topic)
+
(when (or (not gnus-topic-alist)
(not gnus-topology-checked-p))
(gnus-topic-check-topology))
(when (or (not gnus-topic-alist)
(not gnus-topology-checked-p))
(gnus-topic-check-topology))
@@
-752,7
+754,7
@@
articles in the topic and its subtopics."
(not (gnus-topic-goto-topic (caaar tp))))
(pop tp))
(if tp
(not (gnus-topic-goto-topic (caaar tp))))
(pop tp))
(if tp
- (
forward-line
1)
+ (
gnus-topic-forward-topic
1)
(gnus-topic-goto-missing-topic (caadr top)))))
nil))
(gnus-topic-goto-missing-topic (caadr top)))))
nil))
@@
-927,8
+929,8
@@
articles in the topic and its subtopics."
? ))
(yanked (list group))
alist talist end)
? ))
(yanked (list group))
alist talist end)
- ;; Then we enter the yanked groups into the topics
they belong
- ;; to.
+ ;; Then we enter the yanked groups into the topics
+ ;; t
hey belong t
o.
(when (setq alist (assoc (save-excursion
(forward-line -1)
(or
(when (setq alist (assoc (save-excursion
(forward-line -1)
(or
@@
-1153,7
+1155,7
@@
articles in the topic and its subtopics."
'gnus-group-sort-topic)
(setq gnus-group-change-level-function 'gnus-topic-change-level)
(setq gnus-goto-missing-group-function 'gnus-topic-goto-missing-group)
'gnus-group-sort-topic)
(setq gnus-group-change-level-function 'gnus-topic-change-level)
(setq gnus-goto-missing-group-function 'gnus-topic-goto-missing-group)
- (make-local-hook 'gnus-check-bogus-groups-hook)
+ (
gnus-
make-local-hook 'gnus-check-bogus-groups-hook)
(add-hook 'gnus-check-bogus-groups-hook 'gnus-topic-clean-alist
nil 'local)
(setq gnus-topology-checked-p nil)
(add-hook 'gnus-check-bogus-groups-hook 'gnus-topic-clean-alist
nil 'local)
(setq gnus-topology-checked-p nil)
@@
-1180,6
+1182,8
@@
If ALL is a number, fetch this number of articles.
If performed over a topic line, toggle folding the topic."
(interactive "P")
If performed over a topic line, toggle folding the topic."
(interactive "P")
+ (when (and (eobp) (not (gnus-group-group-name)))
+ (forward-line -1))
(if (gnus-group-topic-p)
(let ((gnus-group-list-mode
(if all (cons (if (numberp all) all 7) t) gnus-group-list-mode)))
(if (gnus-group-topic-p)
(let ((gnus-group-list-mode
(if all (cons (if (numberp all) all 7) t) gnus-group-list-mode)))