comparison lisp/gnus/gnus-topic.el @ 110698:74bad2d7bddd

Merge changes made in Gnus trunk. gnus-topic.el (gnus-topic-move-group): Fix the syntax of the completing read. gnus-html.el (gnus-html-schedule-image-fetching): Be silent. shr.el: New file.

110697:0186f2ee32d8

  "Move the next N groups to TOPIC.
If COPYP, copy the groups instead."
  (interactive
   (list current-prefix-arg
	 (gnus-completing-read "Move to topic" (mapcar 'car gnus-topic-alist) t
			       'gnus-topic-history)))
  (let ((use-marked (and (not n) (not (gnus-region-active-p))
			 gnus-group-marked t))
	(groups (gnus-group-process-prefix n))
	(topicl (assoc topic gnus-topic-alist))
	(start-topic (gnus-group-topic-name))

(defun gnus-topic-copy-group (n topic)
  "Copy the current group to a topic."
  (interactive
   (list current-prefix-arg
	 (gnus-completing-read "Copy to topic" (mapcar 'car gnus-topic-alist) t)))
  (gnus-topic-move-group n topic t))

(defun gnus-topic-kill-group (&optional n discard)
  "Kill the next N groups."
  (interactive "P")

110698:74bad2d7bddd

  "Move the next N groups to TOPIC.
If COPYP, copy the groups instead."
  (interactive
   (list current-prefix-arg
	 (gnus-completing-read "Move to topic" (mapcar 'car gnus-topic-alist) t
			       nil 'gnus-topic-history)))
  (let ((use-marked (and (not n) (not (gnus-region-active-p))
			 gnus-group-marked t))
	(groups (gnus-group-process-prefix n))
	(topicl (assoc topic gnus-topic-alist))
	(start-topic (gnus-group-topic-name))

(defun gnus-topic-copy-group (n topic)
  "Copy the current group to a topic."
  (interactive
   (list current-prefix-arg
	 (gnus-completing-read
	  "Copy to topic" (mapcar 'car gnus-topic-alist) t)))
  (gnus-topic-move-group n topic t))

(defun gnus-topic-kill-group (&optional n discard)
  "Kill the next N groups."
  (interactive "P")