Lines Matching refs:group
42 ;; gnus-registry-use-long-group-names t)
52 ;; - get the correct group on spool actions
72 :group 'gnus)
79 The group names are matched, they don't have to be fully qualified."
80 :group 'gnus-registry
85 :group 'gnus-registry
91 :group 'gnus-registry
94 (defcustom gnus-registry-use-long-group-names nil
95 "Whether the registry should use long group names (BUGGY)."
96 :group 'gnus-registry
103 :group 'gnus-registry
111 :group 'gnus-registry
116 :group 'gnus-registry
121 :group 'gnus-registry
126 :group 'gnus-registry
131 :group 'gnus-registry
261 (unless (gnus-registry-fetch-group key)
302 (from (gnus-group-guess-full-name-from-command-method from))
303 (to (if to (gnus-group-guess-full-name-from-command-method to) nil))
313 (gnus-registry-delete-group id from)
316 (gnus-registry-add-group id from subject sender)) ; undo the delete
318 (gnus-registry-add-group id to subject sender)))
320 (defun gnus-registry-spool-action (id group &optional subject sender)
321 (let ((group (gnus-group-guess-full-name-from-command-method group)))
326 group)
327 (gnus-registry-add-group id group subject sender)))
330 ;; the cache and if a match is found, return that group.
332 "Split this message into the same group as its parent. The parent
339 see which group that message was put in. This group is returned.
353 (setq res (or (gnus-registry-fetch-group x) res))
379 (unless (equal res (gnus-registry-fetch-group key))
381 (setq res (gnus-registry-fetch-group key))
385 "%s (extra tracking) traced sender %s to group %s"
402 (unless (equal res (gnus-registry-fetch-group key))
404 (setq res (gnus-registry-fetch-group key))
408 "%s (extra tracking) traced subject %s to group %s"
421 "gnus-registry-split-fancy-with-parent traced %s to group %s"
424 (when (and res gnus-registry-use-long-group-names)
425 (let ((m1 (gnus-find-method-for-group res))
427 (gnus-find-method-for-group gnus-newsgroup-name)))
428 (short-res (gnus-group-short-name res)))
433 "gnus-registry-split-fancy-with-parent stripped group %s to %s"
440 "gnus-registry-split-fancy-with-parent ignored foreign group %s"
446 "Register the Message-ID of every article in the group"
450 (unless (gnus-registry-fetch-group id)
451 (gnus-message 9 "Registry: Registering article %d with group %s"
453 (gnus-registry-add-group
538 The message must have at least one group name."
539 (when (gnus-registry-group-count id)
540 ;; we now know the trail has at least 1 group name, so it's not empty
561 (defun gnus-registry-fetch-group (id)
562 "Get the group of a message, based on the message ID.
563 Returns the first place where the trail finds a group name."
564 (when (gnus-registry-group-count id)
565 ;; we now know the trail has at least 1 group name
569 (return (if gnus-registry-use-long-group-names
571 (gnus-group-short-name crumb))))))))
573 (defun gnus-registry-group-count (id)
580 (defun gnus-registry-delete-group (id group)
581 "Delete a group for a message, based on the message ID."
582 (when group
585 (group (gnus-group-short-name group)))
587 (delete group trail)
592 (unless (gnus-registry-group-count id)
608 (defun gnus-registry-add-group (id group &optional subject sender)
609 "Add a group for a message, based on the message ID."
610 (when group
613 (let ((full-group group)
614 (group (if gnus-registry-use-long-group-names
615 group
616 (gnus-group-short-name group))))
617 (gnus-registry-delete-group id group)
619 (unless gnus-registry-use-long-group-names ;; unnecessary in this case
620 (gnus-registry-delete-group id full-group))
624 (cons group trail)
625 (list group))