* gnus-topic.el (gnus-topic-prepare-topic): Remove unused var `topic'.
(gnus-topic-remove-topic): Mark unused arg `hide'.
(gnus-tmp-header): Declare.
(gnus-topic-goto-missing-group): Remove unused var `entry'.
(gnus-topic-unmark-topic): Mark unused arg `dummy'.
(gnus-topic-copy-matching): Mark unused arg `copyp'.
Move initialization of `topic' into its declaration.
+2015-10-28 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * gnus-topic.el (gnus-topic-prepare-topic): Remove unused var `topic'.
+ (gnus-topic-remove-topic): Mark unused arg `hide'.
+ (gnus-tmp-header): Declare.
+ (gnus-topic-goto-missing-group): Remove unused var `entry'.
+ (gnus-topic-unmark-topic): Mark unused arg `dummy'.
+ (gnus-topic-copy-matching): Mark unused arg `copyp'.
+ Move initialization of `topic' into its declaration.
+
2015-10-23 Katsumi Yamaoka <yamaoka@jpl.org>
* auth-source.el: Revert.
2015-10-23 Katsumi Yamaoka <yamaoka@jpl.org>
* auth-source.el: Revert.
(all-entries entries)
(point-max (point-max))
(unread 0)
(all-entries entries)
(point-max (point-max))
(unread 0)
info entry end active tick)
;; Insert any sub-topics.
(while topicl
info entry end active tick)
;; Insert any sub-topics.
(while topicl
-(defun gnus-topic-remove-topic (&optional insert total-remove hide in-level)
+(defun gnus-topic-remove-topic (&optional insert total-remove _hide in-level)
"Remove the current topic."
(let ((topic (gnus-group-topic-name))
(level (gnus-group-topic-level))
"Remove the current topic."
(let ((topic (gnus-group-topic-name))
(level (gnus-group-topic-level))
(or insert (not (gnus-topic-visible-p))) nil nil 9)
(gnus-topic-enter-dribble)))))))
(or insert (not (gnus-topic-visible-p))) nil nil 9)
(gnus-topic-enter-dribble)))))))
+(defvar gnus-tmp-header)
+
(defun gnus-topic-insert-topic-line (name visiblep shownp level entries
&optional unread)
(let* ((visible (if visiblep "" "..."))
(defun gnus-topic-insert-topic-line (name visiblep shownp level entries
&optional unread)
(let* ((visible (if visiblep "" "..."))
(let* ((topic (gnus-group-topic group))
(groups (cdr (assoc topic gnus-topic-alist)))
(g (cdr (member group groups)))
(let* ((topic (gnus-group-topic group))
(groups (cdr (assoc topic gnus-topic-alist)))
(g (cdr (member group groups)))
;; Try to jump to a visible group.
(while (and g
(not (gnus-group-goto-group (car g) t)))
;; Try to jump to a visible group.
(while (and g
(not (gnus-group-goto-group (car g) t)))
(funcall (if unmark 'gnus-group-remove-mark 'gnus-group-set-mark)
(gnus-info-group (nth 2 (pop groups)))))))))
(funcall (if unmark 'gnus-group-remove-mark 'gnus-group-set-mark)
(gnus-info-group (nth 2 (pop groups)))))))))
-(defun gnus-topic-unmark-topic (topic &optional dummy non-recursive)
+(defun gnus-topic-unmark-topic (topic &optional _dummy non-recursive)
"Remove the process mark from all groups in the TOPIC.
If NON-RECURSIVE (which is the prefix) is t, don't unmark its subtopics."
(interactive (list (gnus-group-topic-name)
"Remove the process mark from all groups in the TOPIC.
If NON-RECURSIVE (which is the prefix) is t, don't unmark its subtopics."
(interactive (list (gnus-group-topic-name)
(gnus-group-mark-regexp regexp)
(gnus-topic-move-group nil topic copyp))
(gnus-group-mark-regexp regexp)
(gnus-topic-move-group nil topic copyp))
-(defun gnus-topic-copy-matching (regexp topic &optional copyp)
+(defun gnus-topic-copy-matching (regexp topic &optional _copyp)
"Copy all groups that match REGEXP to some topic."
(interactive
"Copy all groups that match REGEXP to some topic."
(interactive
+ (let ((topic (gnus-completing-read "Copy to topic"
+ (mapcar #'car gnus-topic-alist) t)))
- (list
- (setq topic (gnus-completing-read "Copy to topic"
- (mapcar 'car gnus-topic-alist) t))
- (read-string (format "Copy to %s (regexp): " topic))))))
+ (list topic
+ (read-string (format "Copy to %s (regexp): " topic))))))
(gnus-topic-move-matching regexp topic t))
(defun gnus-topic-delete (topic)
(gnus-topic-move-matching regexp topic t))
(defun gnus-topic-delete (topic)