Lines Matching +defs:image +defs:file +defs:name +defs:regexp
9 ;; This file is part of GNU Emacs.
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
105 :type '(choice regexp (const nil)))
129 `gnus-group-sort-by-alphabet', `gnus-group-sort-by-real-name',
145 (function-item gnus-group-sort-by-real-name)
170 %G Group name (string)
171 %g Qualified group name (string)
172 %c Short (collapsed) group name. See `gnus-group-uncollapsed-levels'.
200 If you use %o or %O, reading the active file will be slower and quite
301 ,(let ((file (nnheader-find-etc-directory
303 (unless file
305 file))))))
372 group: The name of the group.
397 The icon from the file field after the first true form is used. You
398 can change how those group lines are displayed by editing the file
400 `gnus-group-glyph-directory' or by designating absolute name of the
401 file.
408 group: The name of the group.
417 :type '(repeat (cons (sexp :tag "Form") file)))
419 (defcustom gnus-group-name-charset-method-alist nil
428 (defcustom gnus-group-name-charset-group-alist
433 "Alist of group regexp and the charset for group names.
438 :type '(repeat (cons (regexp :tag "Group") (symbol :tag "Charset"))))
497 (?c (gnus-short-group-name (if (boundp 'gnus-tmp-decoded-group)
508 '(symbol-name gnus-tmp-news-method)
579 "r" gnus-group-read-init-file
623 "r" gnus-group-mark-regexp
669 "n" gnus-group-sort-groups-by-real-name)
679 "n" gnus-group-sort-selected-groups-by-real-name)
765 :active (gnus-group-group-name)]
770 :active (gnus-group-group-name)]
774 :keys "C-u SPC" :active (gnus-group-group-name)]
777 :active (gnus-group-group-name)
785 (gnus-group-group-name)]
788 :active (gnus-group-group-name)
796 (gnus-group-group-name)]
797 ["Kill" gnus-group-kill-group :active (gnus-group-group-name)
801 ["Describe" gnus-group-describe-group :active (gnus-group-group-name)
804 ["Fetch FAQ" gnus-group-fetch-faq (gnus-group-group-name)]
806 :active (gnus-group-group-name)
810 :active (gnus-group-group-name)
817 :active (or (and (gnus-group-group-name)
820 (gnus-group-group-name))) gnus-group-marked)]
824 (gnus-group-group-name)]
825 ["Select quick" gnus-group-quick-select-group (gnus-group-group-name)]
826 ["Customize" gnus-group-customize (gnus-group-group-name)]
830 :active (gnus-group-group-name)]
834 (gnus-group-group-name)]
835 ["Info" gnus-group-edit-group (gnus-group-group-name)]
836 ["Local kill file" gnus-group-edit-local-kill (gnus-group-group-name)]
837 ["Global kill file" gnus-group-edit-global-kill t])))
853 ["List active file" gnus-group-list-active t]
863 ["Sort by name" gnus-group-sort-groups-by-alphabet t]
864 ["Sort by real name" gnus-group-sort-groups-by-real-name t])
878 ["Sort by name" gnus-group-sort-selected-groups-by-alphabet
880 ["Sort by real name" gnus-group-sort-selected-groups-by-real-name
884 (and (gnus-group-group-name)
885 (not (memq (gnus-group-group-name) gnus-group-marked)))]
887 (and (gnus-group-group-name)
888 (memq (gnus-group-group-name) gnus-group-marked))]
890 ["Mark regexp..." gnus-group-mark-regexp t]
894 (or gnus-group-marked (gnus-group-group-name))])
916 'request-rename-group (gnus-group-group-name))]
919 'request-delete-group (gnus-group-group-name))])
937 (gnus-group-group-name)]
963 ["Read init file" gnus-group-read-init-file t]
1090 (defvar image-load-path)
1102 (gmm-image-load-path-for-library "gnus"
1105 (image-load-path (cons (car load-path)
1106 (when (boundp 'image-load-path)
1107 image-load-path)))
1139 (setq mode-name "Group")
1201 (defun gnus-group-name-charset (method group)
1204 (let ((item (assoc method gnus-group-name-charset-method-alist))
1205 (alist gnus-group-name-charset-group-alist)
1215 (defun gnus-group-name-decode (string charset)
1221 (defun gnus-group-decoded-name (string)
1222 (let ((charset (gnus-group-name-charset nil string)))
1223 (gnus-group-name-decode string charset)))
1248 (group (gnus-group-group-name))
1310 (defun gnus-group-prepare-flat (level &optional predicate lowest regexp)
1339 (or (not (stringp regexp))
1340 (string-match regexp group))
1374 regexp))
1384 gnus-level-killed ?K regexp))
1391 (defun gnus-group-prepare-flat-list-dead (groups level mark regexp)
1401 (or (not regexp)
1402 (and (stringp regexp) (string-match regexp group))
1403 (and (functionp regexp) (funcall regexp group))))
1407 (gnus-group-decoded-name group)
1416 (or (not regexp)
1417 (and (stringp regexp) (string-match regexp group))
1418 (and (functionp regexp) (funcall regexp group))))
1432 (group (gnus-group-group-name))
1520 (group-name-charset (gnus-group-name-charset gnus-tmp-method
1540 (gnus-group-name-decode (gnus-group-real-name gnus-tmp-group)
1541 group-name-charset))
1547 (or (gnus-group-name-decode
1549 group-name-charset) "")
1571 (gnus-buffer-live-p (gnus-summary-buffer-name
1590 (let ((gnus-tmp-decoded-group (gnus-group-name-decode
1591 gnus-tmp-group group-name-charset)))
1620 (group (gnus-group-group-name))
1631 (memq x (assoc (symbol-name
1732 (buffer-name gnus-dribble-buffer)
1751 (defun gnus-group-group-name ()
1752 "Get the name of the newsgroup on the current line."
1755 (symbol-name group))))
1773 (if (nnmail-new-mail-p (gnus-group-real-name group))
1845 (when (setq group (gnus-group-group-name))
1894 (defun gnus-group-mark-regexp (regexp)
1895 "Mark all groups that match some regexp."
1896 (interactive "sMark (regexp): ")
1901 (when (string-match regexp (setq group (gnus-info-group (pop alist))))
1952 (if (setq group (gnus-group-group-name))
1965 (push (gnus-group-group-name) groups)
1975 (let ((group (gnus-group-group-name)))
1988 FUNCTION will be called with the group name as the parameter
2015 (group (or group (gnus-group-group-name)))
2049 (when (and (eobp) (not (gnus-group-group-name)))
2065 gnus-home-score-file
2087 (group (gnus-group-group-name))
2090 (gnus-group-prefixed-name group method) method)))
2096 (interactive (list (completing-read "Group name: " gnus-active-hashtb)))
2153 Return the name of the group if selection was successful."
2156 ;; (gnus-read-group "Group name: ")
2170 (gnus-group-prefixed-name (gnus-group-real-name group)
2212 (gnus-read-active-file-p)
2217 (error "Empty group name"))
2353 (not (equal exclude-group (gnus-group-group-name)))))
2360 (and best-point (gnus-group-group-name))))
2383 (defun gnus-group-make-group (name &optional method address args)
2389 (gnus-read-group "Group name: ")
2399 (nname (if method (gnus-group-prefixed-name name meth) name))
2402 (error "Group %s already exists" (gnus-group-decoded-name nname)))
2407 (and (gnus-group-group-name)
2408 (gnus-gethash (gnus-group-group-name)
2413 (unless (gnus-ephemeral-group-p name)
2424 (when (assoc (symbol-name (setq backend (car (gnus-server-get-method
2456 (list (gnus-group-group-name)
2463 (let ((group-decoded (gnus-group-decoded-name group)))
2480 (defun gnus-group-rename-group (group new-name)
2486 (gnus-group-group-name)
2489 'request-rename-group (gnus-group-group-name))
2492 (gnus-group-real-name (gnus-group-group-name))))))
2498 (when (equal (gnus-group-real-name group) new-name)
2499 (error "Can't rename to the same name"))
2501 ;; We find the proper prefixed name.
2502 (setq new-name
2505 new-name
2507 (gnus-group-prefixed-name
2508 (gnus-group-real-name new-name)
2511 (when (gnus-active new-name)
2512 (error "The group %s already exists" new-name))
2514 (gnus-message 6 "Renaming group %s to %s..." group new-name)
2519 (gnus-request-rename-group group new-name))))
2520 (gnus-error 3 "Couldn't rename group %s to %s" group new-name)
2523 ;; ... changing its name ...
2524 (setcar (cdar gnus-list-of-killed-groups) new-name)
2527 (gnus-set-active new-name (gnus-active group))
2528 (gnus-message 6 "Renaming group %s to %s...done" group new-name)
2529 new-name)
2537 (interactive (list (gnus-group-group-name)))
2560 (gnus-group-decoded-name group))
2576 (interactive (list (gnus-group-group-name)))
2581 (interactive (list (gnus-group-group-name)))
2596 (gnus-group-real-name (car info))
2597 (gnus-group-prefixed-name
2598 (gnus-group-real-name (car info)) method))
2641 (let ((name (gnus-group-prefixed-name "gnus-help" '(nndoc "gnus-help")))
2642 (file (nnheader-find-etc-directory "gnus-tut.txt" t)))
2643 (if (gnus-gethash name gnus-newsrc-hashtb)
2652 (if (not file)
2655 (gnus-group-real-name name)
2657 (list 'nndoc-address file)
2662 (defun gnus-group-make-doc-group (file type)
2663 "Create a group that uses a single file as the source.
2665 If called with a prefix argument, ask for the file type."
2667 (list (read-file-name "File name: ")
2685 (setq file (expand-file-name file))
2686 (let ((name (gnus-generate-new-group-name
2687 (gnus-group-prefixed-name
2688 (file-name-nondirectory file) '(nndoc ""))))
2692 (mm-encode-coding-string (gnus-group-real-name name) 'utf-8)
2693 (gnus-group-real-name name))
2695 (mm-encode-coding-string file 'utf-8)
2696 file)
2697 (list 'nndoc-address file)
2709 (if solid (gnus-read-group "Group name: ")
2712 (symbol-name (caar nnweb-type-definition))))
2717 (mapcar (lambda (elem) (list (symbol-name (car elem))))
2752 (let ((title (gnus-newsgroup-savable-name
2754 (gnus-newsgroup-savable-name
2784 (let* ((group (gnus-read-group "Group name: "))
2786 (symbol-name (caar nnwarchive-type-definition))))
2791 (mapcar (lambda (elem) (list (symbol-name (car elem))))
2815 (let ((group (gnus-group-prefixed-name
2820 (gnus-group-real-name group)
2833 (list (read-file-name "Create group from directory: ")))
2834 (unless (file-exists-p dir)
2836 (unless (file-directory-p dir)
2843 (gnus-group-prefixed-name
2844 (expand-file-name ext dir)
2848 (gnus-group-real-name group)
2849 (list 'nndir (gnus-group-real-name group) (list 'nndir-directory dir)))))
2851 (defvar nnkiboze-score-file)
2854 The user will be prompted for a name, a regexp to match groups, and
2855 score file entries for articles to include in the group."
2858 (read-string "nnkiboze group name: ")
2859 (read-string "Source groups (regexp): ")
2864 scores header regexp regexps)
2868 (while (not (equal "" (setq regexp (read-string
2869 (format "Match on %s (regexp): "
2871 (push (list regexp nil nil 'r) regexps))
2876 (score-file (car (nnkiboze-score-file "")))
2877 (score-dir (file-name-directory score-file)))
2878 (unless (file-exists-p score-dir)
2880 (with-temp-file score-file
2901 (concat "\\(^" (regexp-quote s) "$\\)"))
2909 (pgroup (gnus-group-prefixed-name group method)))
2914 (gnus-subscribe-group pgroup (gnus-group-group-name) method)
2923 (leaf (gnus-group-prefixed-name
2924 (file-name-nondirectory (directory-file-name dir))
2926 (name (gnus-generate-new-group-name leaf)))
2928 name method t
2941 (interactive (list (gnus-group-group-name)))
2942 (let ((mailbox (gnus-group-real-name group)) method)
2953 (interactive (list (gnus-group-group-name)))
2954 (let ((mailbox (gnus-group-real-name group)) method acl)
3020 "Sort the group buffer alphabetically by group name.
3025 (defun gnus-group-sort-groups-by-real-name (&optional reverse)
3026 "Sort the group buffer alphabetically by real (unprefixed) group name.
3029 (gnus-group-sort-groups 'gnus-group-sort-by-real-name reverse))
3056 "Sort the group buffer alphabetically by back end name.
3062 "Sort the group buffer alphabetically by server name.
3103 "Sort the group buffer alphabetically by group name.
3109 (defun gnus-group-sort-selected-groups-by-real-name (&optional n reverse)
3110 "Sort the group buffer alphabetically by real group name.
3114 (gnus-group-sort-selected-groups n 'gnus-group-sort-by-real-name reverse))
3145 "Sort the group buffer alphabetically by back end name.
3157 (defun gnus-group-sort-by-real-name (info1 info2)
3159 (string< (gnus-group-real-name (gnus-info-group info1))
3160 (gnus-group-real-name (gnus-info-group info2))))
3174 "Sort alphabetically by back end name."
3181 "Sort alphabetically by server name."
3182 (string< (gnus-method-to-full-server-name
3185 (gnus-method-to-full-server-name
3275 (gnus-group-decoded-name (car groups))
3284 (gnus-group-real-name group) (nth 1 method) all)))
3311 (nnmail-purge-split-history (gnus-group-real-name group))
3333 (let ((gnus-newsgroup-name group))
3354 (gnus-group-decoded-name group))
3380 (gnus-group-decoded-name group))
3419 (gnus-group-decoded-name group)
3465 (gnus-read-active-file-p)
3471 (error "Empty group name"))
3482 (or (not (gnus-read-active-file-p))
3491 (when (gnus-group-group-name)
3492 (gnus-gethash (gnus-group-group-name) gnus-newsrc-hashtb)))
3503 (unless (gnus-group-group-name)
3546 The return value is the name of the group that was killed, or a list
3563 (gnus-group-goto-group ,(gnus-group-group-name))
3569 (message "Killed group %s" (gnus-group-decoded-name group)))
3600 name of the newsgroup yanked is returned, or (if several groups are
3613 (setq prev (gnus-group-group-name))
3694 ;; First we make sure that we have really read the active file.
3695 (unless (gnus-read-active-file-p)
3696 (let ((gnus-read-active-file t)
3697 (gnus-agent gnus-plugged)); If we're actually plugged, store the active file in the agent.
3698 (gnus-read-active-file)))
3707 (push (symbol-name sym) list)))
3719 (gnus-group-decoded-name group)
3758 ;; If ARG is not a number, then we read the active file.
3760 (let ((gnus-read-active-file t))
3761 (gnus-read-active-file))
3769 (if (and gnus-read-active-file (not arg))
3771 (gnus-read-active-file)
3773 (let ((gnus-read-active-file (if arg nil gnus-read-active-file)))
3807 method (gnus-group-real-name group) (gnus-active group)))
3826 (gnus-group-group-name)
3833 (error "No group name given"))
3835 dir found file)
3840 (let ((name (gnus-group-real-name group)))
3841 (setq file (expand-file-name name dir)))
3842 (if (not (file-exists-p file))
3843 (gnus-message 1 "No such file: %s" file)
3845 (find-file file)
3854 (gnus-group-group-name)
3855 gnus-newsgroup-name)))
3857 (error "No group name given"))
3860 (let ((name (mm-url-form-encode-xwfu (gnus-group-real-name group)))
3862 (when (string-match "\\(^[^\\.]+\\)\\..*" name)
3863 (setq hierarchy (match-string 1 name))
3865 (if (fboundp 'url-http-file-exists-p)
3866 (url-http-file-exists-p (eval url))
3870 ".news-admin.org/charters/" name))
3871 (if (and (fboundp 'url-http-file-exists-p)
3872 (url-http-file-exists-p url))
3882 (gnus-group-group-name)
3883 gnus-newsgroup-name)))
3885 (error "No group name given"))
3886 (let ((name (gnus-group-real-name group))
3888 (when (string-match "\\(^[^\\.]+\\)\\..*" name)
3889 (setq hierarchy (match-string 1 name))
3892 hierarchy "/" name ".gz"))
3897 ,(find-file-noselect
3899 hierarchy "/" name ".gz")))
3904 (interactive (list current-prefix-arg (gnus-group-group-name)))
3906 (mname (gnus-group-prefixed-name "" method))
3912 (error "No group name given"))
3915 ;; queried for a description file.
3918 (gnus-read-descriptions-file method))
3931 (error "Couldn't request descriptions file"))
3938 (let ((charset (gnus-group-name-charset nil (symbol-name group))))
3940 (gnus-group-name-decode
3941 (symbol-name group) charset)
3942 (gnus-group-name-decode
3953 (defun gnus-group-apropos (regexp &optional search-description)
3954 "List all newsgroups that have names that match a regexp."
3955 (interactive "sGnus apropos (regexp): ")
3962 (and (symbol-name group)
3963 (string-match regexp (symbol-name group))
3965 (push (symbol-name group) groups)))
3971 (and (string-match regexp (symbol-value group))
3972 (push (symbol-name group) groups)))
3975 (gnus-message 3 "No groups matched \"%s\"." regexp)
3986 (let ((charset (gnus-group-name-charset nil prev)))
3987 (insert (gnus-group-name-decode prev charset) "\n")
3991 (insert " " (gnus-group-name-decode des charset) "\n"))))
3996 (defun gnus-group-description-apropos (regexp)
3998 (interactive "sGnus description apropos (regexp): ")
4001 (error "Couldn't request descriptions file"))
4002 (gnus-group-apropos regexp t))
4005 (defun gnus-group-list-matching (level regexp &optional all lowest)
4012 This command may read the active file."
4014 ;; First make sure active file has been read.
4019 (or level gnus-level-subscribed) (and all t) (or lowest 1) regexp)
4023 (defun gnus-group-list-all-matching (level regexp &optional lowest)
4031 (gnus-group-list-matching (or level gnus-level-killed) regexp t lowest))
4038 (gnus-save-newsrc-file force))
4041 "Force Gnus to read the .newsrc file."
4045 (gnus-save-newsrc-file)
4049 (defun gnus-group-read-init-file ()
4050 "Read the Gnus elisp init file."
4052 (gnus-read-init-file)
4053 (gnus-message 5 "Read %s" gnus-init-file))
4075 "Edit the global kill file.
4076 If GROUP, edit that local kill file instead."
4079 (gnus-kill-file-edit-file group)
4083 (format "Editing a %s kill file (Type \\[gnus-kill-file-exit] to exit)"
4087 "Edit a local kill file."
4088 (interactive (list nil (gnus-group-group-name)))
4092 "Update `.newsrc' file."
4094 (gnus-save-newsrc-file))
4139 ;; Save the newsrc file(s).
4140 (gnus-save-newsrc-file)
4156 (not gnus-current-startup-file)
4159 (file-name-nondirectory gnus-current-startup-file))))
4191 ;; We either got a back end name or a virtual server name.
4200 ;; We got a server name.
4237 (gnus-group-real-name (gnus-info-group info))
4246 (gnus-gethash (gnus-group-prefixed-name
4247 (gnus-group-real-name (gnus-info-group info))
4295 (let ((buffer (gnus-summary-buffer-name group)))
4311 (when gnus-newsgroup-name
4314 (gnus-group-set-parameter gnus-newsgroup-name 'timestamp time))))
4341 This command may read the active file."
4356 ;; Cache active file might use "."
4372 This command may read the active file."
4395 (push (symbol-name (get-text-property point 'gnus-group)) groups)
4433 (let ((buffer (gnus-summary-buffer-name group))