Lines Matching +refs:nnfolder +refs:group +refs:alist
53 :group 'gnus-group-foreign
59 (defcustom gnus-outgoing-message-group nil
60 "*All outgoing messages will be put in this group.
61 If you want to store all your outgoing mail and articles in the group
63 can also be a list of group names.
65 If you want to have greater control over what group to put each
67 current newsgroup name and then returns a suitable group name (or list
69 :group 'gnus-message
79 the group."
80 :group 'gnus-message
86 :group 'gnus-message
96 The %s group, at least, was an inappropriate recipient
98 group before posting in the future.
105 the second with the current group name."
106 :group 'gnus-message
111 :group 'gnus-message
116 :group 'gnus-message
122 :group 'gnus-message
149 :group 'gnus-message
158 if a regexp and matches the Gcc group name, attach files as external parts;
161 :group 'gnus-message
166 (gnus-define-group-parameter
167 posting-charset-alist
171 :variable gnus-group-posting-charset-alist
179 Each element of the alist has the form (TEST HEADER BODY-LIST), where
190 :variable-group gnus-charset
212 '("gnus.el" "gnus-sum.el" "gnus-group.el"
219 :group 'gnus-message
223 '(mm-mime-mule-charset-alist
227 :group 'gnus-message
231 '(nndraft nnml nnimap nnmaildir nnmh nnfolder nndir)
235 :group 'gnus-group-foreign
242 :group 'gnus-message
249 :group 'gnus-message
255 :group 'gnus-message
262 This can also be a function receiving the group name as the only
264 a regexp, in which case a confirmation is asked for iff the group name
267 :group 'gnus-message
270 (regexp :tag "Iff group matches regexp")
280 :group 'gnus-message
288 :group 'gnus-message
301 (defvar gnus-message-group-art nil)
384 (group (make-symbol "gnus-setup-message-group")))
389 (,group gnus-newsgroup-name)
410 ;; make sure that the correct value for the group name is used. -- drv
414 (gnus-configure-posting-styles ,group))
418 (gnus-configure-posting-styles ,group)))))
421 (when (and ,group
422 (not (string= ,group "")))
433 (set (make-local-variable 'gnus-message-group-art)
434 (cons ,group ,article))
435 (set (make-local-variable 'gnus-newsgroup-name) ,group)
453 (defun gnus-inews-make-draft-meta-information (group article)
454 (concat "(\"" group "\" "
499 (defun gnus-setup-posting-charset (group)
500 (let ((alist gnus-group-posting-charset-alist)
501 (group (or group ""))
503 (when group
505 (while (setq elem (pop alist))
507 (string-match (car elem) group))
509 (funcall (car elem) group))
548 ;;; Post news commands of Gnus group mode and summary mode
550 (defun gnus-group-mail (&optional arg)
552 If ARG, use the group under the point to find a posting style.
553 If ARG is 1, prompt for a group name to find the posting style."
557 (let ((group gnus-newsgroup-name)
566 (completing-read "Use posting style of group: "
569 (gnus-group-group-name))
575 (setq gnus-newsgroup-name group)))))
577 (defun gnus-group-news (&optional arg)
579 If ARG, post to group under point.
580 If ARG is 1, prompt for group name to post to.
588 (let ((group gnus-newsgroup-name)
597 (completing-read "Use group: "
600 (gnus-group-group-name))
604 (message-news (gnus-group-real-name gnus-newsgroup-name))))
607 (setq gnus-newsgroup-name group)))))
609 (defun gnus-group-post-news (&optional arg)
611 If ARG, post to group under point. If ARG is 1, prompt for group name.
612 Depending on the selected group, the message might be either a mail or
621 (gnus-group-group-name))
630 Use the posting of the current group by default.
631 If ARG, don't do that. If ARG is 1, prompt for group name to find the
636 (let ((group gnus-newsgroup-name)
645 (completing-read "Use group: "
654 (setq gnus-newsgroup-name group)))))
658 Post to the current group by default.
659 If ARG, don't do that. If ARG is 1, prompt for group name to post to.
667 (let ((group gnus-newsgroup-name)
676 (completing-read "Use group: "
684 (message-news (gnus-group-real-name gnus-newsgroup-name))
687 (car (gnus-find-method-for-group gnus-newsgroup-name))
691 (setq gnus-newsgroup-name group)))))
694 "Start composing a message. Post to the current group by default.
695 If ARG, don't do that. If ARG is 1, prompt for a group name to post to.
696 Depending on the selected group, the message might be either a mail or
889 (defun gnus-post-news (post &optional group header article-buffer yank subject
899 (let* ((group (or group gnus-newsgroup-name))
900 (charset (gnus-group-name-charset nil group))
901 (pgroup group)
902 to-address to-group mailing-list to-list
904 (when group
905 (setq to-address (gnus-parameter-to-address group)
906 to-group (gnus-group-find-parameter group 'to-group)
907 to-list (gnus-parameter-to-list group)
908 newsgroup-p (gnus-group-find-parameter group 'newsgroup)
910 (string-match gnus-mailing-list-groups group))
911 group (gnus-group-name-decode (gnus-group-real-name group)
913 (if (or (and to-group
914 (gnus-news-group-p to-group))
917 (and (gnus-news-group-p
926 (or to-group
927 (and (not (gnus-virtual-group-p pgroup)) group)))
936 to-group)))
957 (gnus-group-find-parameter
963 (defun gnus-post-method (arg group &optional silent)
966 (let ((gnus-post-method (or (gnus-parameter-post-method group)
968 (group-method (gnus-find-method-for-group group)))
970 ;; If the group-method is nil (which shouldn't happen) we use
972 ((null group-method)
982 group-method))
995 (mapcar 'cdr gnus-server-alist)
998 (list group-method)))
999 method-alist post-methods method)
1007 ;; Create a name-method alist.
1008 (setq method-alist
1024 "Posting method: " method-alist nil t
1026 method-alist))))
1029 (not (memq (car group-method) gnus-discouraged-post-methods))
1030 (gnus-get-function group-method 'request-post t))
1032 group-method)
1080 (not (or (gnus-news-group-p gnus-newsgroup-name)
1305 The current group name will be inserted at \"%s\".")
1313 (let ((group gnus-newsgroup-name))
1317 (insert (format gnus-nastygram-message group))
1328 (let ((group (gnus-group-real-name gnus-newsgroup-name))
1338 (not (member group (message-tokenize-header
1347 (insert (format gnus-crosspost-complaint newsgroups group))
1382 (defun gnus-inews-add-to-address (group)
1386 ;; This mail group doesn't have a `to-list', so we add one
1390 (gnus-group-add-parameter group (cons 'to-list to-address))))))
1393 "Put the current message in some group and return to Gnus."
1397 (group gnus-newsgroup-name))
1398 (unless (and group
1399 (not (gnus-group-read-only-p group)))
1400 (setq group (read-string "Put in group: " nil (gnus-writable-groups))))
1402 (when (gnus-gethash group gnus-newsrc-hashtb)
1403 (error "No such group: %s" group))
1414 (if (string-match " " group)
1415 (insert "Gcc: \"" group "\"\n")
1416 (insert "Gcc: " group "\n"))
1419 (when (and (get-buffer gnus-group-buffer)
1576 (defun gnus-inews-group-method (group)
1578 ;; If the group doesn't exist, we assume
1579 ;; it's an archive group...
1580 ((and (null (gnus-get-info group))
1582 (car (gnus-server-to-method (gnus-group-method group)))))
1585 ((gnus-info-method (gnus-get-info group))
1586 (gnus-info-method (gnus-get-info group)))
1588 (t (gnus-server-to-method (gnus-group-method group)))))
1590 ;; Do Gcc handling, which copied the message over to some group.
1598 groups group method group-art
1605 ;; Copy the article over to some group(s).
1606 (while (setq group (pop groups))
1608 (setq method (gnus-inews-group-method group)))
1611 (unless (gnus-request-group group nil method)
1612 (gnus-request-create-group group method))
1615 (string-match gnus-gcc-externalize-attachments group)
1632 ;; lines to allow crossposting between group
1635 (group-field-charset
1636 (gnus-group-name-charset
1639 (gnus-group-name-charset
1641 (rfc2047-header-encoding-alist
1643 (when group-field-charset
1644 (list (cons "Newsgroups" group-field-charset)))
1647 rfc2047-header-encoding-alist)))
1654 (unless (setq group-art
1655 (gnus-request-accept-article group method t t))
1656 (gnus-message 1 "Couldn't store article in group %s: %s"
1657 group (gnus-status-message method))
1659 (when (and group-art
1667 (gnus-group-mark-article-read group (cdr group-art)))
1671 "Insert Gcc headers based on `gnus-outgoing-message-group'."
1675 (let* ((group gnus-outgoing-message-group)
1677 ((functionp group)
1678 (funcall group))
1679 ((or (stringp group) (listp group))
1680 group))))
1687 (mapconcat (lambda (group)
1688 (if (string-match " " group)
1689 (concat "\"" group "\"")
1690 group))
1694 (defun gnus-inews-insert-archive-gcc (&optional group)
1696 (let* ((var gnus-message-archive-group)
1697 (group (or group gnus-newsgroup-name ""))
1701 (gnus-group-find-parameter
1710 ;; Just a single group.
1720 (funcall var group))
1722 ;; An alist of regexps/functions/forms.
1729 (when (string-match (caar var) group)
1733 (funcall (car var) group))
1755 ;; In nndoc groups, we use the parent group name
1756 ;; instead of the current group.
1757 (let ((group (or (gnus-group-find-parameter
1758 gnus-newsgroup-name 'parent-group)
1759 group)))
1760 (if (string-match " " group)
1761 (concat "\"" group "\"")
1762 group))))
1770 (gnus-group-prefixed-name
1791 (defun gnus-configure-posting-styles (&optional group-name)
1794 (let ((group (or group-name gnus-newsgroup-name ""))
1798 ;; If the group has a posting-style parameter, add it at the end with a
1802 (let ((tmp-style (gnus-group-find-parameter group 'posting-style t)))
1811 ;; Regexp string match on the group name.
1812 (string-match match group))