;ELC ;;; compiled by amu@tux.mit.edu on Sun Nov 15 14:42:05 1998 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.6.44/lisp/gnus-msg.el ;;; emacs version 19.34.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`gnus-msg.el' was compiled for Emacs 19.29 or later")) (byte-code "!!!!  F&" [require gnus gnus-ems message gnus-art custom-declare-variable gnus-post-method nil "*Preferred method for posting USENET news.\n\nIf this variable is `current', Gnus will use the \"current\" select\nmethod when posting. If it is nil (which is the default), Gnus will\nuse the native posting method of the server.\n\nThis method will not be used in mail groups and the like, only in\n\"real\" newsgroups.\n\nIf not nil nor `native', the value must be a valid method as discussed\nin the documentation of `gnus-select-method'. It can also be a list of\nmethods. If that is the case, the user will be queried for what select\nmethod to use when posting." :group gnus-group-foreign :type choice (const nil) (const current) (const native) sexp :tag "Methods" gnus-select-method] 15) #@439 *All outgoing messages will be put in this group. If you want to store all your outgoing mail and articles in the group "nnml:archive", you set this variable to that value. This variable can also be a list of group names. If you want to have greater control over what group to put each message in, you can set this variable to a function that checks the current newsgroup name and then returns a suitable group name (or list of names). (defvar gnus-outgoing-message-group nil (#$ . -1334)) #@199 *Regexp matching groups that are really mailing lists. This is useful when you're reading a mailing list that has been gatewayed to a newsgroup, and you want to followup to an article in the group. (defvar gnus-mailing-list-groups nil (#$ . -1833)) #@55 *If non-nil, add a `to-list' parameter automatically. (defvar gnus-add-to-list nil (#$ . -2088)) #@161 Format string to be inserted when complaining about crossposts. The first %s will be replaced by the Newsgroups header; the second with the current group name. (defvar gnus-crosspost-complaint "Hi,\n\nYou posted the article below with the following Newsgroups header:\n\nNewsgroups: %s\n\nThe %s group, at least, was an inappropriate recipient\nof this message. Please trim your Newsgroups header to exclude this\ngroup before posting in the future.\n\nThank you.\n\n" (#$ . 2192)) #@45 Hook run after setting up a message buffer. (defvar gnus-message-setup-hook nil (#$ . 2681)) #@47 *Should we create the *Gnus Help Bug* buffer? (defvar gnus-bug-create-help-buffer t (#$ . -2780)) #@39 *Alist of styles to use when posting. (defvar gnus-posting-styles nil (#$ . -2884)) #@46 *Mapping from style parameters to variables. (defvar gnus-posting-style-alist (quote ((organization . message-user-organization) (signature . message-signature) (signature-file . message-signature-file) (address . user-mail-address) (name . user-full-name))) (#$ . -2974)) #@36 Inhibit the use of posting styles. (defvar gnus-inhibit-posting-styles nil (#$ . 3253)) (byte-code "! B! B!! B!. B B$\"\"\"\"\"\"!g BŇ" [boundp gnus-message-buffer "*Mail Gnus*" current-load-list gnus-article-copy nil gnus-last-posting-server gnus-message-group-art "Sending a bug report to the Gnus Towers.\n========================================\n\nThe buffer below is a mail buffer. When you press `C-c C-c', it will\nbe sent to the Gnus Bug Exterminators.\n\nAt the bottom of the buffer you'll see lots of variable settings.\nPlease do not delete those. They will tell the Bug People what your\nenvironment is, so that it will be easier to locate the bugs.\n\nIf you have found a bug that makes Emacs go \"beep\", set\ndebug-on-error to t (`M-x set-variable RET debug-on-error RET t RET')\nand include the backtrace in your bug report.\n\nPlease describe the bug in annoying, painstaking detail.\n\nThank you for your help in stamping out bugs.\n" gnus-bug-message autoload gnus-uu-post-news "gnus-uu" t news-setup "rnewspost" news-reply-mode rmail-dont-reply-to "mail-utils" rmail-output "rmailout" gnus-define-keys-1 (gnus-summary-send-map "S" gnus-summary-mode-map) ("p" gnus-summary-post-news "f" gnus-summary-followup "F" gnus-summary-followup-with-original "c" gnus-summary-cancel-article "s" gnus-summary-supersede-article "r" gnus-summary-reply "R" gnus-summary-reply-with-original "w" gnus-summary-wide-reply "W" gnus-summary-wide-reply-with-original "n" gnus-summary-followup-to-mail "N" gnus-summary-followup-to-mail-with-original "m" gnus-summary-mail-other-window "u" gnus-uu-post-news "" gnus-summary-mail-crosspost-complaint "om" gnus-summary-mail-forward "op" gnus-summary-post-forward "Om" gnus-uu-digest-mail-forward "Op" gnus-uu-digest-post-forward) (gnus-send-bounce-map "D" gnus-summary-send-map) ("b" gnus-summary-resend-bounced-mail "r" gnus-summary-resend-message) gnus-article-reply] 5) (defalias 'gnus-setup-message '(macro . #[(config &rest forms) "!!!!BBB BBBBBBF EEBBBBB,BBBBBBBBBB" [make-symbol "gnus-setup-message-winconf" "gnus-setup-message-buffer" "gnus-setup-message-article" "gnus-setup-message-group" group article buffer winconf let ((current-window-configuration)) ((buffer-name (current-buffer))) ((and gnus-article-reply (gnus-summary-article-number))) (gnus-newsgroup-name) ((message-header-setup-hook (copy-sequence message-header-setup-hook)) (message-mode-hook (copy-sequence message-mode-hook))) (add-hook (quote message-header-setup-hook) (quote gnus-inews-insert-gcc)) (add-hook (quote message-header-setup-hook) (quote gnus-inews-insert-archive-gcc)) (add-hook (quote message-mode-hook) (quote gnus-configure-posting-styles)) unwind-protect progn forms gnus-inews-add-send-actions (setq gnus-message-buffer (current-buffer)) set (make-local-variable (quote gnus-message-group-art)) cons ((make-local-variable (quote gnus-newsgroup-name)) (gnus-run-hooks (quote gnus-message-setup-hook))) (gnus-add-buffer) gnus-configure-windows config (t) ((set-buffer-modified-p nil))] 14])) (defalias 'gnus-inews-add-send-actions #[(winconf buffer article) "!$\nEE  D$DD:DEE\"" [make-local-hook message-sent-hook add-hook gnus-inews-do-gcc nil t lambda (arg) gnus-post-method arg gnus-newsgroup-name message-post-method gnus-extended-version message-mailer message-newsreader message-add-action set-window-configuration winconf exit postpone kill when gnus-buffer-exists-p buffer save-excursion set-buffer article gnus-summary-mark-article-as-replied send] 7]) (byte-code "##" [put gnus-setup-message lisp-indent-function 1 edebug-form-spec (form body)] 4) #@25 Start composing a mail. (defalias 'gnus-group-mail #[nil " p!\n `\" !)`\"   !\f!\f  \"\"\"Վ ) \"!." [current-window-configuration buffer-name gnus-article-reply get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-name copy-sequence message-header-setup-hook message-mode-hook gnus-setup-message-group gnus-setup-message-article gnus-setup-message-buffer gnus-setup-message-winconf add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc gnus-configure-posting-styles ((byte-code " \n #p! BL!!" [gnus-inews-add-send-actions gnus-setup-message-winconf gnus-setup-message-buffer gnus-setup-message-article gnus-message-buffer make-local-variable gnus-message-group-art gnus-setup-message-group gnus-newsgroup-name gnus-run-hooks gnus-message-setup-hook] 4)) message-mail gnus-add-buffer gnus-configure-windows message t set-buffer-modified-p nil] 8 (#$ . 7053) nil]) #@110 Start composing a news message. If ARG, post to the group under point. If ARG is 1, prompt for a group name. (defalias 'gnus-group-post-news #[(&optional arg) "!U $ \n\n\")" [arg prefix-numeric-value 1 completing-read "Newsgroup: " gnus-active-hashtb nil gnus-read-active-file-p gnus-group-group-name "" gnus-newsgroup-name gnus-post-news post] 5 (#$ . 8065) "P"]) #@33 Start composing a news message. (defalias 'gnus-summary-post-news #[nil "\n\"" [gnus-post-news post gnus-newsgroup-name] 3 (#$ . 8464) nil]) #@113 Compose a followup to an article. If prefix argument YANK is non-nil, original article is yanked automatically. (defalias 'gnus-summary-followup #[(yank &optional force-news) " @!‹`\"!)`\"&  8\n\n \n &*" [yank gnus-summary-goto-subject ((gnus-summary-select-article)) 3 get-text-property gnus-intangible to gnus-number gnus-summary-last-subject gnus-newsgroup-data gnus-newsgroup-name headers gnus-post-news nil gnus-article-buffer force-news] 9 (#$ . 8615) (list (and current-prefix-arg (gnus-summary-work-articles 1)))]) #@68 Compose a followup to an article and include the original article. (defalias 'gnus-summary-followup-with-original #[(n &optional force-news) "\n! \"" [gnus-summary-followup gnus-summary-work-articles n force-news] 3 (#$ . 9187) "P"]) #@48 Followup to the current mail message via news. (defalias 'gnus-summary-followup-to-mail #[(&optional arg) " \"" [gnus-summary-followup arg t] 3 (#$ . 9430) (list (and current-prefix-arg (gnus-summary-work-articles 1)))]) #@48 Followup to the current mail message via news. (defalias 'gnus-summary-followup-to-mail-with-original #[(&optional arg) "\n!\"" [gnus-summary-followup gnus-summary-work-articles arg t] 3 (#$ . 9660) "P"]) (defalias 'gnus-inews-yank-articles #[(articles) " \fA@5ŋ  \n \n)!*\fc \nb*" [nil article beg message-goto-body articles ((byte-code "q‰ $ !" [gnus-summary-buffer gnus-summary-select-article nil article gnus-summary-remove-process-mark] 5)) gnus-copy-article-buffer gnus-article-copy gnus-current-headers message-reply-headers message-reply-buffer message-yank-original mark t "\n" push-mark] 2]) #@189 Cancel an article you posted. Uses the process-prefix convention. If given the symbolic prefix `a', cancel using the standard posting method; if not post using the current select method. (defalias 'gnus-summary-cancel-article #[(&optional n symp) " !EE \n\nA\n@nlj$f \"ԎM!!qR! ,c\"! !+" [gnus-summary-work-articles n lambda (arg) gnus-post-method (not (eq symp (quote a))) gnus-newsgroup-name nil article message-post-method articles gnus-summary-select-article t selected-window GnusStartBufferWindow gnus-original-article-buffer buf get-buffer-window visible w ((select-window GnusStartBufferWindow)) select-window window-buffer pop-to-buffer message-cancel-news gnus-summary-mark-as-read gnus-canceled-mark gnus-cache-remove-article 1 gnus-article-hide-headers-if-wanted gnus-summary-remove-process-mark] 6 (#$ . 10321) (gnus-interactive "P\ny")]) #@167 Compose an article that will supersede a previous article. This is done simply by taking the old article and adding a Supersedes header line with the old Message-ID. (defalias 'gnus-summary-supersede-article #[nil "`\" \n!)`\"  p! :`\"0\n!)`\": \n\f! ! \f\"\"\"֎!q DDBBBBFEEC&B&) \"!." [get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject article current-window-configuration buffer-name gnus-article-reply gnus-newsgroup-name copy-sequence message-header-setup-hook message-mode-hook gnus-setup-message-group gnus-setup-message-article gnus-setup-message-buffer gnus-setup-message-winconf add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc gnus-configure-posting-styles ((byte-code " \n #p! BL!!" [gnus-inews-add-send-actions gnus-setup-message-winconf gnus-setup-message-buffer gnus-setup-message-article gnus-message-buffer make-local-variable gnus-message-group-art gnus-setup-message-group gnus-newsgroup-name gnus-run-hooks gnus-message-setup-hook] 4)) gnus-summary-select-article t gnus-original-article-buffer message-supersede lambda nil when gnus-buffer-exists-p gnus-summary-buffer save-excursion set-buffer gnus-cache-possibly-remove-article (nil nil nil t) gnus-summary-mark-as-read (gnus-canceled-mark) message-send-actions gnus-add-buffer gnus-configure-windows reply-yank set-buffer-modified-p] 11 (#$ . 11260) nil]) (defalias 'gnus-copy-article-buffer #[(&optional article-buffer) "!\n!\f Ɖ\f!3\f\n/\n;+ɂ,\n!)9!\fq~\ned#\nq!!! \" cqeb!syf`#`\nqeb#`|# *\n+" [gnus-get-buffer-create " *gnus article copy*" gnus-article-copy buffer-disable-undo article-buffer gnus-article-buffer nil beg end get-buffer buffer buffer-name error "Can't find any article buffer" copy-to-buffer gnus-article-delete-text-of-type annotation gnus-remove-text-with-property gnus-prev gnus-next format "%s" buffer-string erase-buffer gnus-original-article-buffer looking-at message-unix-mail-delimiter 1 search-forward "\n\n" t insert-buffer-substring gnus-article-decode-rfc1522] 6]) (defalias 'gnus-post-news #[(post &optional group header article-buffer yank subject force-news) " \n p!\f-`\" # !)`\"-  !!\"\"\"َ[  !\"\"\" \"!$$\"&&\"&O&)!!* ++H,\"\"\" \"\"-!W/q !*?!W-K/ ! WW WD4B4W/q !6a6!. 6pyxy\"!." [article-buffer gnus-copy-article-buffer gnus-add-to-list add-to-list gnus-article-reply current-window-configuration buffer-name get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-name copy-sequence message-header-setup-hook message-mode-hook gnus-setup-message-group gnus-setup-message-article gnus-setup-message-buffer gnus-setup-message-winconf add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc gnus-configure-posting-styles ((byte-code " \n #p! BL!!" [gnus-inews-add-send-actions gnus-setup-message-winconf gnus-setup-message-buffer gnus-setup-message-article gnus-message-buffer make-local-variable gnus-message-group-art gnus-setup-message-group gnus-newsgroup-name gnus-run-hooks gnus-message-setup-hook] 4)) group pgroup nil to-address to-group mailing-list to-list newsgroup-p gnus-group-find-parameter newsgroup gnus-mailing-list-groups string-match gname "^[^:]+:" 0 gnus-news-group-p force-news header gnus-current-article post message-news gnus-article-copy gnus-msg-treat-broken-reply-to message-followup message-mail gnus-inews-add-to-address message-send-actions message-wide-reply yank gnus-inews-yank-articles gnus-add-buffer gnus-configure-windows reply-yank reply message t set-buffer-modified-p] 8]) #@49 Remove the Reply-to header iff broken-reply-to. (defalias 'gnus-msg-treat-broken-reply-to #[nil " \" !)" [gnus-group-find-parameter gnus-newsgroup-name broken-reply-to message-narrow-to-head message-remove-header "reply-to"] 3 (#$ . 15331)]) #@85 Return the posting method based on GROUP and ARG. If SILENT, don't prompt the user. (defalias 'gnus-post-method #[(arg group &optional silent) " ! =  5=5 =1 \nJ ] =] @<] b =?b @<` b C \" C\nC%+A@;! @; \" A@Ԛ@!\"> P! @> P!A@DC\" **\"!\"yBy\"#B$B$Q$NB%$\"A@, =s\n@=ss\n  =  )" [gnus-find-method-for-group group group-method gnus-post-method active gnus-select-method message-post-method arg 0 current append gnus-secondary-select-methods mapcar cdr gnus-server-alist methods nil method-alist post-methods method "" gnus-server-to-method gnus-server-extend-method symbol-name method-name address assoc gnus-valid-select-methods intern "-address" physical-address gnus-method-option-p post post-mail #[(m) "A@@!RD" [m " (" symbol-name ")"] 4] silent gnus-last-posting-server completing-read "Posting method: " t nndraft] 9 (#$ . 15590)]) (byte-code " B B" [nnspool-rejected-article-hook current-load-list xemacs-codename] 2) #@45 Stringified Gnus version and Emacs version. (defalias 'gnus-extended-version #[nil "\f\"\fƔƕOPG\f\"F\fƔƕO\n #̔6\f̔̕O7!BQRG\fQ" [gnus-version "/" string-match "^\\([0-9]+\\.[0-9]+\\)\\.[.0-9]+$" emacs-version "Emacs " 1 "\\([A-Z]*[Mm][Aa][Cc][Ss]\\)[^(]*\\(\\((beta.*)\\|'\\)\\)?" format " %d.%d" emacs-major-version emacs-minor-version 3 "" boundp xemacs-codename " - \"" "\""] 8 (#$ . 16801) nil]) #@84 Insert MIME headers. Assumes ISO-Latin-1 is used iff 8-bit characters are present. (defalias 'gnus-inews-insert-mime-headers #[nil "ebeb\nQ##\n!^c^~eb#)M!Bc!^c^!Vc!^c)" [search-forward "\n" mail-header-separator nil t search-backward "\n\n" "" mail-position-on-field "Mime-Version" "1.0" re-search-forward "[^-]" "Content-Type" "text/plain; charset=ISO-8859-1" "Content-Transfer-Encoding" "8bit" "text/plain; charset=US-ASCII" "7bit"] 4 (#$ . 17247)]) (custom-add-option (quote message-header-hook) (quote gnus-inews-insert-mime-headers)) #@136 Start composing a reply mail to the current message. If prefix argument YANK is non-nil, the original article is yanked automatically. (defalias 'gnus-summary-reply #[(&optional yank wide) " @! p! -`\"#!)`\"-   !! \"\"\"׎ q \"l!) yz\"!." [yank gnus-summary-goto-subject t gnus-article-reply current-window-configuration buffer-name get-text-property gnus-intangible to gnus-number gnus-summary-last-subject gnus-newsgroup-name copy-sequence message-header-setup-hook message-mode-hook gnus-setup-message-group gnus-setup-message-article gnus-setup-message-buffer gnus-setup-message-winconf add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc gnus-configure-posting-styles ((byte-code " \n #p! BL!!" [gnus-inews-add-send-actions gnus-setup-message-winconf gnus-setup-message-buffer gnus-setup-message-article gnus-message-buffer make-local-variable gnus-message-group-art gnus-setup-message-group gnus-newsgroup-name gnus-run-hooks gnus-message-setup-hook] 4)) gnus-summary-select-article gnus-copy-article-buffer gnus-msg-treat-broken-reply-to message-reply nil wide gnus-inews-yank-articles gnus-add-buffer gnus-configure-windows reply-yank reply set-buffer-modified-p] 8 (#$ . 17858) (list (and current-prefix-arg (gnus-summary-work-articles 1)))]) #@91 Start composing a reply mail to the current message. The original article will be yanked. (defalias 'gnus-summary-reply-with-original #[(n &optional wide) "\n! \"" [gnus-summary-reply gnus-summary-work-articles n wide] 3 (#$ . 19230) "P"]) #@141 Start composing a wide reply mail to the current message. If prefix argument YANK is non-nil, the original article is yanked automatically. (defalias 'gnus-summary-wide-reply #[(&optional yank) " \"" [gnus-summary-reply yank t] 3 (#$ . 19480) (list (and current-prefix-arg (gnus-summary-work-articles 1)))]) #@96 Start composing a wide reply mail to the current message. The original article will be yanked. (defalias 'gnus-summary-wide-reply-with-original #[(n) " \"" [gnus-summary-reply-with-original n t] 3 (#$ . 19797) "P"]) #@114 Forward the current message to another user. If FULL-HEADERS (the prefix), include full headers when forwarding. (defalias 'gnus-summary-mail-forward #[(&optional full-headers post) " p!\n `\" !)`\"   !\f!\f  \"\"\"Վ qWقY!* \"!." [current-window-configuration buffer-name gnus-article-reply get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-name copy-sequence message-header-setup-hook message-mode-hook gnus-setup-message-group gnus-setup-message-article gnus-setup-message-buffer gnus-setup-message-winconf add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc gnus-configure-posting-styles ((byte-code " \n #p! BL!!" [gnus-inews-add-send-actions gnus-setup-message-winconf gnus-setup-message-buffer gnus-setup-message-article gnus-message-buffer make-local-variable gnus-message-group-art gnus-setup-message-group gnus-newsgroup-name gnus-run-hooks gnus-message-setup-hook] 4)) gnus-summary-select-article gnus-original-article-buffer full-headers "" message-included-forward-headers message-forward post gnus-add-buffer gnus-configure-windows forward t set-buffer-modified-p nil] 8 (#$ . 20023) "P"]) #@40 Resend the current article to ADDRESS. (defalias 'gnus-summary-resend-message #[(address n) " !\fA@%‰ $q!)*" [gnus-summary-work-articles n nil article articles gnus-summary-select-article gnus-original-article-buffer message-resend address] 5 (#$ . 21296) "sResend message(s) to: \nP"]) #@113 Forward the current article to a newsgroup. If FULL-HEADERS (the prefix), include full headers when forwarding. (defalias 'gnus-summary-post-forward #[(&optional full-headers) " \"" [gnus-summary-mail-forward full-headers t] 3 (#$ . 21616) "P"]) #@89 Format string to insert in nastygrams. The current group name will be inserted at "%s". (defvar gnus-nastygram-message "The following article was inappropriately posted to %s.\n\n" (#$ . 21871)) #@56 Send a nastygram to the author of the current article. (defalias 'gnus-summary-mail-nastygram #[(n) "\n!\" !q \n\f\"c )" [gnus-expert-user gnus-y-or-n-p "Really send a nastygram to the author of the current article? " gnus-newsgroup-name group gnus-summary-reply-with-original n gnus-message-buffer message-goto-body format gnus-nastygram-message message-send-and-exit] 3 (#$ . 22072) "P"]) #@64 Send a complaint about crossposting to the current article(s). (defalias 'gnus-summary-mail-crosspost-complaint #[(n) " !\fA@ q !\",˕O.)‰\f  q! \"GXv!\fa\f\"v\fn\"\" q!q  #c !# ! +*" [gnus-summary-work-articles n nil article articles gnus-summary-buffer gnus-summary-goto-subject gnus-newsgroup-name gname string-match "^[^:]+:" 0 followup-to newsgroups group gnus-summary-select-article gnus-original-article-buffer message-tokenize-header mail-fetch-field "newsgroups" ", " 1 "followup-to" gnus-message "Followup-to restricted" "Not a crossposted article" gnus-summary-reply-with-original gnus-message-buffer message-goto-body format gnus-crosspost-complaint message-goto-subject re-search-forward " *$" replace-match " (crosspost notification)" t gnus-deactivate-mark gnus-y-or-n-p "Send this complaint? " message-send-and-exit] 4 (#$ . 22491) "P"]) #@31 Compose mail in other window. (defalias 'gnus-summary-mail-other-window #[nil " p!\n `\" !)`\"   !\f!\f  \"\"\"Վ ) \"!." [current-window-configuration buffer-name gnus-article-reply get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-name copy-sequence message-header-setup-hook message-mode-hook gnus-setup-message-group gnus-setup-message-article gnus-setup-message-buffer gnus-setup-message-winconf add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc gnus-configure-posting-styles ((byte-code " \n #p! BL!!" [gnus-inews-add-send-actions gnus-setup-message-winconf gnus-setup-message-buffer gnus-setup-message-article gnus-message-buffer make-local-variable gnus-message-group-art gnus-setup-message-group gnus-newsgroup-name gnus-run-hooks gnus-message-setup-hook] 4)) message-mail gnus-add-buffer gnus-configure-windows message t set-buffer-modified-p nil] 8 (#$ . 23471) nil]) (defalias 'gnus-mail-parse-comma-list #[nil "wmd`w `} b#/TU:˂<\"+UOwwx `{\nBww\n*" [nil beg accumulated " " "^," 0 i logand search-forward "\"" t 2 "," ", "] 5]) (defalias 'gnus-inews-add-to-address #[(group) "! \n\"!\nB\")" [mail-fetch-field "to" to-address gnus-alive-p gnus-y-or-n-p format "Do you want to add this as `to-list': %s " gnus-group-add-parameter group to-list] 5]) #@59 Put the current message in some group and return to Gnus. (defalias 'gnus-put-message #[nil " \n  ! # \f\"J% \"~  <!A!)db ֱ~* ! n;j؂k!) @q A A!\f\f!+" [gnus-article-reply gnus-prev-winconf gnus-newsgroup-name group winconf reply gnus-group-read-only-p read-string "Put in group: " nil gnus-writable-groups intern-soft gnus-newsrc-hashtb error "No such group: %s" message-narrow-to-headers gnus-deletable-headers message-news-p message-generate-headers message-required-news-headers message-required-mail-headers "Gcc: " "\n" gnus-inews-do-gcc get-buffer gnus-group-buffer buffer buffer-name gnus-summary-mark-article-as-replied set-window-configuration] 5 (#$ . 24977) nil]) #@91 Send a reply to the address near point. If YANK is non-nil, include the original article. (defalias 'gnus-article-mail #[(yank) "#`T)#`S){) !) AC!)" [re-search-backward "[ \n]" nil t re-search-forward address message-reply yank gnus-inews-yank-articles gnus-article-current] 6 (#$ . 25745) "P"]) (byte-code " B" [nntp-server-type current-load-list] 2) #@44 Send a bug report to the Gnus maintainers. (defalias 'gnus-bug #[nil " ! p! +`\"!!)`\"+ \f!!\"\"\"؎ h! ceb!#BB!&B&eb*!Q!y !1;1cc eb#!) \"!." [gnus-alive-p error "Gnus has been shut down" current-window-configuration buffer-name gnus-article-reply get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-name copy-sequence message-header-setup-hook message-mode-hook gnus-setup-message-group gnus-setup-message-article gnus-setup-message-buffer gnus-setup-message-winconf add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc gnus-configure-posting-styles ((byte-code " \n #p! BL!!" [gnus-inews-add-send-actions gnus-setup-message-winconf gnus-setup-message-buffer gnus-setup-message-article gnus-message-buffer make-local-variable gnus-message-group-art gnus-setup-message-group gnus-newsgroup-name gnus-run-hooks gnus-message-setup-hook] 4)) delete-other-windows gnus-bug-create-help-buffer switch-to-buffer "*Gnus Help Bug*" erase-buffer gnus-bug-message message-pop-to-buffer "*Gnus Bug*" message-setup To gnus-maintainer ((Subject . "")) (gnus-bug-kill-buffer) message-send-actions re-search-forward "^" regexp-quote mail-header-separator "$" 1 gnus-version "\n" emacs-version boundp nntp-server-type "\n\n\n\n\n" gnus-debug search-forward "Subject: " nil t message "" gnus-add-buffer gnus-configure-windows bug set-buffer-modified-p] 8 (#$ . 26133) nil]) (defalias 'gnus-bug-kill-buffer #[nil "! !" [get-buffer "*Gnus Help Bug*" kill-buffer] 2]) #@140 Attempts to go through the Gnus source file and report what variables have been changed. The source file has to be in the Emacs load path. (defalias 'gnus-debug #[nil "`\"!!qp!m A@!! !! !eb#U #!e`}ebڏ!ݏ\\p!) |c @!⏈ @! Acb#!!\"։#." [("gnus.el" "gnus-sum.el" "gnus-group.el" "gnus-art.el" "gnus-start.el" "gnus-async.el" "gnus-msg.el" "gnus-score.el" "gnus-win.el" "gnus-topic.el" "nnmail.el" "message.el") nil sym olist expr file point files gnus-message 4 "Please wait while we snoop your variables..." sit-for 0 gnus-get-buffer-create " *gnus bug info*" buffer-disable-undo erase-buffer locate-library file-exists-p insert-file-contents re-search-forward "^;;* *Internal variables" t "Malformed sources in file %s" G99166 (byte-code "p!" [read] 2) ((error)) G99167 (byte-code "@=@=28;28!*8!8J2A@B" [expr defvar defcustom 3 boundp 1 eval 2 olist] 3) ((error)) kill-buffer "------------------ Environment follows ------------------\n\n" boundp (byte-code "\n@\n@J: 9& =& =&\n@JD)\n@JEp\"" [pp setq olist sym nil t quote] 5) ((error)) ";; (makeunbound '" symbol-name ")\n" "\n\n" "[- --]" replace-match format "\\%03o" string-to-char match-string] 7 (#$ . 27820) nil]) #@259 Re-mail the current message. This only makes sense if the current message is a bounce message than contains some mail you have written which has been bounced back to you. If FETCH, try to fetch the article that this is a reply to, if indeed this is a reply. (defalias 'gnus-summary-resend-bounced-mail #[(&optional fetch) "!\nq p! )`\"!)`\") \f!!\"\"\"؎!]! vv!v + \"!." [gnus-summary-select-article t gnus-original-article-buffer current-window-configuration buffer-name gnus-article-reply get-text-property gnus-intangible to gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-newsgroup-name copy-sequence message-header-setup-hook message-mode-hook gnus-setup-message-group gnus-setup-message-article gnus-setup-message-buffer gnus-setup-message-winconf add-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc gnus-configure-posting-styles ((byte-code " \n #p! BL!!" [gnus-inews-add-send-actions gnus-setup-message-winconf gnus-setup-message-buffer gnus-setup-message-article gnus-message-buffer make-local-variable gnus-message-group-art gnus-setup-message-group gnus-newsgroup-name gnus-run-hooks gnus-message-setup-hook] 4)) mail-fetch-field "references" references gnus-parent-id parent message-bounce fetch gnus-summary-refer-article gnus-summary-show-all-headers gnus-add-buffer gnus-configure-windows compose-bounce set-buffer-modified-p nil] 8 (#$ . 29188) "P"]) (defalias 'gnus-inews-do-gcc #[(&optional gcc) " \n#pʼn \n!~\n\"  A @\"J8]@!!@=]}\"J88y\"J88}!!!#\"!\n!eb!Q#Ɖ##!$!p!)0." [gnus-alive-p message-narrow-to-headers gcc mail-fetch-field "gcc" nil t method group groups cur message-remove-header message-tokenize-header " ," gnus-check-server 2 intern-soft gnus-newsrc-hashtb gnus-message-archive-method gnus-server-to-method gnus-group-method 4 gnus-request-group gnus-request-create-group nnheader-set-temp-buffer " *acc*" insert-buffer-substring re-search-forward "^" regexp-quote mail-header-separator "$" replace-match "" gnus-request-accept-article gnus-message 1 "Couldn't store article in group %s: %s" gnus-status-message sit-for kill-buffer] 7 nil nil]) #@60 Insert Gcc headers based on `gnus-outgoing-message-group'. (defalias 'gnus-inews-insert-gcc #[nil " 9 !# < @=# !),\n 7\n;6\nC7\nR;IO#̱," [message-narrow-to-headers gnus-outgoing-message-group group form fboundp lambda byte-code-function-p gcc "Gcc: " mapconcat identity " " "\n"] 6 (#$ . 31567)]) #@60 Insert the Gcc to say where the article is to be archived. (defalias 'gnus-inews-insert-archive-gcc #[(&optional group) "\n   \" \n\"Ȃ ;, C 4Ȃ