view lisp/gnus/gnus-msg.el @ 75541:98a32ea6898a

*** empty log message ***

+
鐃緒申��申鐃緒申;;; gnus-msg.el --- mail and post interface for Gnus
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
+
鐃緒申��申鐃緒申;;   2004, 2005, 2006, 2007 Free Software Foundation, Inc.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; Author: Masanobu UMEDA <[e-mail]>
+
鐃緒申��申鐃緒申;;	Lars Magne Ingebrigtsen <[e-mail]>
+
鐃緒申��申鐃緒申;; Keywords: news
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; This file is part of GNU Emacs.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; GNU Emacs is free software; you can redistribute it and/or modify
+
鐃緒申��申鐃緒申;; it under the terms of the GNU General Public License as published by
+
鐃緒申��申鐃緒申;; the Free Software Foundation; either version 2, or (at your option)
+
鐃緒申��申鐃緒申;; any later version.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; GNU Emacs is distributed in the hope that it will be useful,
+
鐃緒申��申鐃緒申;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+
鐃緒申��申鐃緒申;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+
鐃緒申��申鐃緒申;; GNU General Public License for more details.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; You should have received a copy of the GNU General Public License
+
鐃緒申��申鐃緒申;; along with GNU Emacs; see the file COPYING.  If not, write to the
+
鐃緒申��申鐃緒申;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+
鐃緒申��申鐃緒申;; Boston, MA 02110-1301, USA.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;; Commentary:
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;; Code:
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(eval-when-compile (require 'cl))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(require 'gnus)
+
鐃緒申��申鐃緒申(require 'gnus-ems)
+
鐃緒申��申鐃緒申(require 'message)
+
鐃緒申��申鐃緒申(require 'gnus-art)
+
鐃緒申��申鐃緒申(require 'gnus-util)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defcustom gnus-post-method 'current
+
鐃緒申��申鐃緒申  "*Preferred method for posting USENET news.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申If this variable is `current' (which is the default), Gnus will use
+
鐃緒申��申鐃緒申the \"current\" select method when posting.  If it is `native', Gnus
+
鐃緒申��申鐃緒申will use the native select method when posting.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申This method will not be used in mail groups and the like, only in
+
鐃緒申��申鐃緒申\"real\" newsgroups.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申If not `native' nor `current', the value must be a valid method as discussed
+
鐃緒申��申鐃緒申in the documentation of `gnus-select-method'.  It can also be a list of
+
鐃緒申��申鐃緒申methods.  If that is the case, the user will be queried for what select
+
鐃緒申��申鐃緒申method to use when posting."
+
鐃緒申��申鐃緒申  :group 'gnus-group-foreign
+
鐃緒申��申鐃緒申  :link '(custom-manual "(gnus)Posting Server")
+
鐃緒申��申鐃緒申  :type `(choice (const native)
+
鐃緒申��申鐃緒申		 (const current)
+
鐃緒申��申鐃緒申		 (sexp :tag "Methods" ,gnus-select-method)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defcustom gnus-outgoing-message-group nil
+
鐃緒申��申鐃緒申  "*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)."
+
鐃緒申��申鐃緒申  :group 'gnus-message
+
鐃緒申��申鐃緒申  :type '(choice (const nil)
+
鐃緒申��申鐃緒申		 (function)
+
鐃緒申��申鐃緒申		 (string :tag "Group")
+
鐃緒申��申鐃緒申		 (repeat :tag "List of groups" (string :tag "Group"))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defcustom gnus-mailing-list-groups nil
+
鐃緒申��申鐃緒申  "*If non-nil a 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."
+
鐃緒申��申鐃緒申  :group 'gnus-message
+
鐃緒申��申鐃緒申  :type '(choice (regexp)
+
鐃緒申��申鐃緒申		 (const nil)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defcustom gnus-add-to-list nil
+
鐃緒申��申鐃緒申  "*If non-nil, add a `to-list' parameter automatically."
+
鐃緒申��申鐃緒申  :group 'gnus-message
+
鐃緒申��申鐃緒申  :type 'boolean)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defcustom gnus-crosspost-complaint
+
鐃緒申��申鐃緒申  "Hi,
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申You posted the article below with the following Newsgroups header:
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Newsgroups: %s
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申The %s group, at least, was an inappropriate recipient
+
鐃緒申��申鐃緒申of this message.  Please trim your Newsgroups header to exclude this
+
鐃緒申��申鐃緒申group before posting in the future.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Thank you.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申"
+
鐃緒申��申鐃緒申  "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."
+
鐃緒申��申鐃緒申  :group 'gnus-message
+
鐃緒申��申鐃緒申  :type 'string)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defcustom gnus-message-setup-hook nil
+
鐃緒申��申鐃緒申  "Hook run after setting up a message buffer."
+
鐃緒申��申鐃緒申  :group 'gnus-message
+
鐃緒申��申鐃緒申  :type 'hook)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defcustom gnus-bug-create-help-buffer t
+
鐃緒申��申鐃緒申  "*Should we create the *Gnus Help Bug* buffer?"
+
鐃緒申��申鐃緒申  :group 'gnus-message
+
鐃緒申��申鐃緒申  :type 'boolean)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defcustom gnus-posting-styles nil
+
鐃緒申��申鐃緒申  "*Alist of styles to use when posting.
+
鐃緒申��申鐃緒申See Info node `(gnus)Posting Styles'."
+
鐃緒申��申鐃緒申  :group 'gnus-message
+
鐃緒申��申鐃緒申  :link '(custom-manual "(gnus)Posting Styles")
+
鐃緒申��申鐃緒申  :type '(repeat (cons (choice (regexp)
+
鐃緒申��申鐃緒申			       (variable)
+
鐃緒申��申鐃緒申			       (list (const header)
+
鐃緒申��申鐃緒申				     (string :tag "Header")
+
鐃緒申��申鐃緒申				     (regexp :tag "Regexp"))
+
鐃緒申��申鐃緒申			       (function)
+
鐃緒申��申鐃緒申			       (sexp))
+
鐃緒申��申鐃緒申		       (repeat (list
+
鐃緒申��申鐃緒申				(choice (const signature)
+
鐃緒申��申鐃緒申					(const signature-file)
+
鐃緒申��申鐃緒申					(const organization)
+
鐃緒申��申鐃緒申					(const address)
+
鐃緒申��申鐃緒申					(const x-face-file)
+
鐃緒申��申鐃緒申					(const name)
+
鐃緒申��申鐃緒申					(const body)
+
鐃緒申��申鐃緒申					(symbol)
+
鐃緒申��申鐃緒申					(string :tag "Header"))
+
鐃緒申��申鐃緒申				(choice (string)
+
鐃緒申��申鐃緒申					(function)
+
鐃緒申��申鐃緒申					(variable)
+
鐃緒申��申鐃緒申					(sexp)))))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defcustom gnus-gcc-mark-as-read nil
+
鐃緒申��申鐃緒申  "If non-nil, automatically mark Gcc articles as read."
+
鐃緒申��申鐃緒申  :version "22.1"
+
鐃緒申��申鐃緒申  :group 'gnus-message
+
鐃緒申��申鐃緒申  :type 'boolean)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(make-obsolete-variable 'gnus-inews-mark-gcc-as-read
+
鐃緒申��申鐃緒申			'gnus-gcc-mark-as-read)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defcustom gnus-gcc-externalize-attachments nil
+
鐃緒申��申鐃緒申  "Should local-file attachments be included as external parts in Gcc copies?
+
鐃緒申��申鐃緒申If it is `all', attach files as external parts;
+
鐃緒申��申鐃緒申if a regexp and matches the Gcc group name, attach files as external parts;
+
鐃緒申��申鐃緒申if nil, attach files as normal parts."
+
鐃緒申��申鐃緒申  :version "22.1"
+
鐃緒申��申鐃緒申  :group 'gnus-message
+
鐃緒申��申鐃緒申  :type '(choice (const nil :tag "None")
+
鐃緒申��申鐃緒申		 (const all :tag "Any")
+
鐃緒申��申鐃緒申		 (string :tag "Regexp")))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(gnus-define-group-parameter
+
鐃緒申��申鐃緒申 posting-charset-alist
+
鐃緒申��申鐃緒申 :type list
+
鐃緒申��申鐃緒申 :function-document
+
鐃緒申��申鐃緒申 "Return the permitted unencoded charsets for posting of GROUP."
+
鐃緒申��申鐃緒申 :variable gnus-group-posting-charset-alist
+
鐃緒申��申鐃緒申 :variable-default
+
鐃緒申��申鐃緒申  '(("^\\(no\\|fr\\)\\.[^,]*\\(,[ \t\n]*\\(no\\|fr\\)\\.[^,]*\\)*$" iso-8859-1 (iso-8859-1))
+
鐃緒申��申鐃緒申    ("^\\(fido7\\|relcom\\)\\.[^,]*\\(,[ \t\n]*\\(fido7\\|relcom\\)\\.[^,]*\\)*$" koi8-r (koi8-r))
+
鐃緒申��申鐃緒申    (message-this-is-mail nil nil)
+
鐃緒申��申鐃緒申    (message-this-is-news nil t))
+
鐃緒申��申鐃緒申 :variable-document
+
鐃緒申��申鐃緒申  "Alist of regexps and permitted unencoded charsets for posting.
+
鐃緒申��申鐃緒申Each element of the alist has the form (TEST HEADER BODY-LIST), where
+
鐃緒申��申鐃緒申TEST is either a regular expression matching the newsgroup header or a
+
鐃緒申��申鐃緒申variable to query,
+
鐃緒申��申鐃緒申HEADER is the charset which may be left unencoded in the header (nil
+
鐃緒申��申鐃緒申means encode all charsets),
+
鐃緒申��申鐃緒申BODY-LIST is a list of charsets which may be encoded using 8bit
+
鐃緒申��申鐃緒申content-transfer encoding in the body, or one of the special values
+
鐃緒申��申鐃緒申nil (always encode using quoted-printable) or t (always use 8bit).
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Note that any value other than nil for HEADER infringes some RFCs, so
+
鐃緒申��申鐃緒申use this option with care."
+
鐃緒申��申鐃緒申 :variable-group gnus-charset
+
鐃緒申��申鐃緒申 :variable-type
+
鐃緒申��申鐃緒申 '(repeat (list :tag "Permitted unencoded charsets"
+
鐃緒申��申鐃緒申		(choice :tag "Where"
+
鐃緒申��申鐃緒申			(regexp :tag "Group")
+
鐃緒申��申鐃緒申			(const :tag "Mail message" :value message-this-is-mail)
+
鐃緒申��申鐃緒申			(const :tag "News article" :value message-this-is-news))
+
鐃緒申��申鐃緒申		(choice :tag "Header"
+
鐃緒申��申鐃緒申			(const :tag "None" nil)
+
鐃緒申��申鐃緒申			(symbol :tag "Charset"))
+
鐃緒申��申鐃緒申		(choice :tag "Body"
+
鐃緒申��申鐃緒申			(const :tag "Any" :value t)
+
鐃緒申��申鐃緒申			(const :tag "None" :value nil)
+
鐃緒申��申鐃緒申			(repeat :tag "Charsets"
+
鐃緒申��申鐃緒申				(symbol :tag "Charset")))))
+
鐃緒申��申鐃緒申 :parameter-type '(choice :tag "Permitted unencoded charsets"
+
鐃緒申��申鐃緒申			  :value nil
+
鐃緒申��申鐃緒申			  (repeat (symbol)))
+
鐃緒申��申鐃緒申 :parameter-document       "\
+
鐃緒申��申鐃緒申List of charsets that are permitted to be unencoded.")
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defcustom gnus-debug-files
+
鐃緒申��申鐃緒申  '("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"
+
鐃緒申��申鐃緒申    "gnus-agent.el" "gnus-cache.el" "gnus-srvr.el"
+
鐃緒申��申鐃緒申    "mm-util.el" "mm-decode.el" "nnmail.el" "message.el")
+
鐃緒申��申鐃緒申  "Files whose variables will be reported in `gnus-bug'."
+
鐃緒申��申鐃緒申  :version "22.1"
+
鐃緒申��申鐃緒申  :group 'gnus-message
+
鐃緒申��申鐃緒申  :type '(repeat (string :tag "File")))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defcustom gnus-debug-exclude-variables
+
鐃緒申��申鐃緒申  '(mm-mime-mule-charset-alist
+
鐃緒申��申鐃緒申    nnmail-split-fancy message-minibuffer-local-map)
+
鐃緒申��申鐃緒申  "Variables that should not be reported in `gnus-bug'."
+
鐃緒申��申鐃緒申  :version "22.1"
+
鐃緒申��申鐃緒申  :group 'gnus-message
+
鐃緒申��申鐃緒申  :type '(repeat (symbol :tag "Variable")))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defcustom gnus-discouraged-post-methods
+
鐃緒申��申鐃緒申  '(nndraft nnml nnimap nnmaildir nnmh nnfolder nndir)
+
鐃緒申��申鐃緒申  "A list of back ends that are not used in \"real\" newsgroups.
+
鐃緒申��申鐃緒申This variable is used only when `gnus-post-method' is `current'."
+
鐃緒申��申鐃緒申  :version "22.1"
+
鐃緒申��申鐃緒申  :group 'gnus-group-foreign
+
鐃緒申��申鐃緒申  :type '(repeat (symbol :tag "Back end")))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defcustom gnus-message-replysign
+
鐃緒申��申鐃緒申  nil
+
鐃緒申��申鐃緒申  "Automatically sign replies to signed messages.
+
鐃緒申��申鐃緒申See also the `mml-default-sign-method' variable."
+
鐃緒申��申鐃緒申  :group 'gnus-message
+
鐃緒申��申鐃緒申  :type 'boolean)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defcustom gnus-message-replyencrypt
+
鐃緒申��申鐃緒申  nil
+
鐃緒申��申鐃緒申  "Automatically encrypt replies to encrypted messages.
+
鐃緒申��申鐃緒申See also the `mml-default-encrypt-method' variable."
+
鐃緒申��申鐃緒申  :group 'gnus-message
+
鐃緒申��申鐃緒申  :type 'boolean)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defcustom gnus-message-replysignencrypted
+
鐃緒申��申鐃緒申  t
+
鐃緒申��申鐃緒申  "Setting this causes automatically encrypted messages to also be signed."
+
鐃緒申��申鐃緒申  :group 'gnus-message
+
鐃緒申��申鐃緒申  :type 'boolean)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defcustom gnus-confirm-mail-reply-to-news nil
+
鐃緒申��申鐃緒申  "If non-nil, Gnus requests confirmation when replying to news.
+
鐃緒申��申鐃緒申This is done because new users often reply by mistake when reading
+
鐃緒申��申鐃緒申news.
+
鐃緒申��申鐃緒申This can also be a function receiving the group name as the only
+
鐃緒申��申鐃緒申parameter which should return non-nil iff a confirmation is needed, or
+
鐃緒申��申鐃緒申a regexp, in which case a confirmation is asked for iff the group name
+
鐃緒申��申鐃緒申matches the regexp."
+
鐃緒申��申鐃緒申  :version "22.1"
+
鐃緒申��申鐃緒申  :group 'gnus-message
+
鐃緒申��申鐃緒申  :type '(choice (const :tag "No" nil)
+
鐃緒申��申鐃緒申		 (const :tag "Yes" t)
+
鐃緒申��申鐃緒申		 (regexp :tag "Iff group matches regexp")
+
鐃緒申��申鐃緒申		 (function :tag "Iff function evaluates to non-nil")))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defcustom gnus-confirm-treat-mail-like-news
+
鐃緒申��申鐃緒申  nil
+
鐃緒申��申鐃緒申  "If non-nil, Gnus will treat mail like news with regard to confirmation
+
鐃緒申��申鐃緒申when replying by mail.  See the `gnus-confirm-mail-reply-to-news' variable
+
鐃緒申��申鐃緒申for fine-tuning this.
+
鐃緒申��申鐃緒申If nil, Gnus will never ask for confirmation if replying to mail."
+
鐃緒申��申鐃緒申  :version "22.1"
+
鐃緒申��申鐃緒申  :group 'gnus-message
+
鐃緒申��申鐃緒申  :type 'boolean)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defcustom gnus-summary-resend-default-address t
+
鐃緒申��申鐃緒申  "If non-nil, Gnus tries to suggest a default address to resend to.
+
鐃緒申��申鐃緒申If nil, the address field will always be empty after invoking
+
鐃緒申��申鐃緒申`gnus-summary-resend-message'."
+
鐃緒申��申鐃緒申  :version "22.1"
+
鐃緒申��申鐃緒申  :group 'gnus-message
+
鐃緒申��申鐃緒申  :type 'boolean)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;; Internal variables.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defvar gnus-inhibit-posting-styles nil
+
鐃緒申��申鐃緒申  "Inhibit the use of posting styles.")
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defvar gnus-article-yanked-articles nil)
+
鐃緒申��申鐃緒申(defvar gnus-message-buffer "*Mail Gnus*")
+
鐃緒申��申鐃緒申(defvar gnus-article-copy nil)
+
鐃緒申��申鐃緒申(defvar gnus-check-before-posting nil)
+
鐃緒申��申鐃緒申(defvar gnus-last-posting-server nil)
+
鐃緒申��申鐃緒申(defvar gnus-message-group-art nil)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defvar gnus-msg-force-broken-reply-to nil)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defconst gnus-bug-message
+
鐃緒申��申鐃緒申  "Sending a bug report to the Gnus Towers.
+
鐃緒申��申鐃緒申========================================
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申The buffer below is a mail buffer.  When you press `C-c C-c', it will
+
鐃緒申��申鐃緒申be sent to the Gnus Bug Exterminators.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申The thing near the bottom of the buffer is how the environment
+
鐃緒申��申鐃緒申settings will be included in the mail.  Please do not delete that.
+
鐃緒申��申鐃緒申They will tell the Bug People what your environment is, so that it
+
鐃緒申��申鐃緒申will be easier to locate the bugs.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申If you have found a bug that makes Emacs go \"beep\", set
+
鐃緒申��申鐃緒申debug-on-error to t (`M-x set-variable RET debug-on-error RET t RET')
+
鐃緒申��申鐃緒申and include the backtrace in your bug report.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Please describe the bug in annoying, painstaking detail.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Thank you for your help in stamping out bugs.
+
鐃緒申��申鐃緒申")
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(eval-and-compile
+
鐃緒申��申鐃緒申  (autoload 'gnus-uu-post-news "gnus-uu" nil t)
+
鐃緒申��申鐃緒申  (autoload 'news-setup "rnewspost")
+
鐃緒申��申鐃緒申  (autoload 'news-reply-mode "rnewspost")
+
鐃緒申��申鐃緒申  (autoload 'rmail-dont-reply-to "mail-utils")
+
鐃緒申��申鐃緒申  (autoload 'rmail-output "rmailout"))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;
+
鐃緒申��申鐃緒申;;; Gnus Posting Functions
+
鐃緒申��申鐃緒申;;;
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(gnus-define-keys (gnus-summary-send-map "S" gnus-summary-mode-map)
+
鐃緒申��申鐃緒申  "p" gnus-summary-post-news
+
鐃緒申��申鐃緒申  "i" gnus-summary-news-other-window
+
鐃緒申��申鐃緒申  "f" gnus-summary-followup
+
鐃緒申��申鐃緒申  "F" gnus-summary-followup-with-original
+
鐃緒申��申鐃緒申  "c" gnus-summary-cancel-article
+
鐃緒申��申鐃緒申  "s" gnus-summary-supersede-article
+
鐃緒申��申鐃緒申  "r" gnus-summary-reply
+
鐃緒申��申鐃緒申  "y" gnus-summary-yank-message
+
鐃緒申��申鐃緒申  "R" gnus-summary-reply-with-original
+
鐃緒申��申鐃緒申  "w" gnus-summary-wide-reply
+
鐃緒申��申鐃緒申  "W" gnus-summary-wide-reply-with-original
+
鐃緒申��申鐃緒申  "v" gnus-summary-very-wide-reply
+
鐃緒申��申鐃緒申  "V" gnus-summary-very-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
+
鐃緒申��申鐃緒申  "\M-c" gnus-summary-mail-crosspost-complaint
+
鐃緒申��申鐃緒申  "Br" gnus-summary-reply-broken-reply-to
+
鐃緒申��申鐃緒申  "BR" gnus-summary-reply-broken-reply-to-with-original
+
鐃緒申��申鐃緒申  "om" gnus-summary-mail-forward
+
鐃緒申��申鐃緒申  "op" gnus-summary-post-forward
+
鐃緒申��申鐃緒申  "Om" gnus-uu-digest-mail-forward
+
鐃緒申��申鐃緒申  "Op" gnus-uu-digest-post-forward)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(gnus-define-keys (gnus-send-bounce-map "D" gnus-summary-send-map)
+
鐃緒申��申鐃緒申  "b" gnus-summary-resend-bounced-mail
+
鐃緒申��申鐃緒申  ;; "c" gnus-summary-send-draft
+
鐃緒申��申鐃緒申  "r" gnus-summary-resend-message
+
鐃緒申��申鐃緒申  "e" gnus-summary-resend-message-edit)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;; Internal functions.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-inews-make-draft ()
+
鐃緒申��申鐃緒申  `(lambda ()
+
鐃緒申��申鐃緒申     (gnus-inews-make-draft-meta-information
+
鐃緒申��申鐃緒申      ,gnus-newsgroup-name ',gnus-article-reply)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defvar gnus-article-reply nil)
+
鐃緒申��申鐃緒申(defmacro gnus-setup-message (config &rest forms)
+
鐃緒申��申鐃緒申  (let ((winconf (make-symbol "gnus-setup-message-winconf"))
+
鐃緒申��申鐃緒申	(buffer (make-symbol "gnus-setup-message-buffer"))
+
鐃緒申��申鐃緒申	(article (make-symbol "gnus-setup-message-article"))
+
鐃緒申��申鐃緒申	(yanked (make-symbol "gnus-setup-yanked-articles"))
+
鐃緒申��申鐃緒申	(group (make-symbol "gnus-setup-message-group")))
+
鐃緒申��申鐃緒申    `(let ((,winconf (current-window-configuration))
+
鐃緒申��申鐃緒申	   (,buffer (buffer-name (current-buffer)))
+
鐃緒申��申鐃緒申	   (,article gnus-article-reply)
+
鐃緒申��申鐃緒申	   (,yanked gnus-article-yanked-articles)
+
鐃緒申��申鐃緒申	   (,group gnus-newsgroup-name)
+
鐃緒申��申鐃緒申	   (message-header-setup-hook
+
鐃緒申��申鐃緒申	    (copy-sequence message-header-setup-hook))
+
鐃緒申��申鐃緒申	   (mbl mml-buffer-list)
+
鐃緒申��申鐃緒申	   (message-mode-hook (copy-sequence message-mode-hook)))
+
鐃緒申��申鐃緒申       (setq mml-buffer-list nil)
+
鐃緒申��申鐃緒申       (add-hook 'message-header-setup-hook 'gnus-inews-insert-gcc)
+
鐃緒申��申鐃緒申       (add-hook 'message-header-setup-hook 'gnus-inews-insert-archive-gcc)
+
鐃緒申��申鐃緒申       ;; #### FIXME: for a reason that I did not manage to identify yet,
+
鐃緒申��申鐃緒申       ;; the variable `gnus-newsgroup-name' does not honor a dynamically
+
鐃緒申��申鐃緒申       ;; scoped or setq'ed value from a caller like `C-u gnus-summary-mail'.
+
鐃緒申��申鐃緒申       ;; After evaluation of @forms below, it gets the value we actually want
+
鐃緒申��申鐃緒申       ;; to override, and the posting styles are used. For that reason, I've
+
鐃緒申��申鐃緒申       ;; added an optional argument to `gnus-configure-posting-styles' to
+
鐃緒申��申鐃緒申       ;; make sure that the correct value for the group name is used. -- drv
+
鐃緒申��申鐃緒申       (add-hook 'message-mode-hook
+
鐃緒申��申鐃緒申		 (if (memq ,config '(reply-yank reply))
+
鐃緒申��申鐃緒申		     (lambda ()
+
鐃緒申��申鐃緒申		       (gnus-configure-posting-styles ,group))
+
鐃緒申��申鐃緒申		   (lambda ()
+
鐃緒申��申鐃緒申		     ;; There may be an old " *gnus article copy*" buffer.
+
鐃緒申��申鐃緒申		     (let (gnus-article-copy)
+
鐃緒申��申鐃緒申		       (gnus-configure-posting-styles ,group)))))
+
鐃緒申��申鐃緒申       (gnus-pull ',(intern gnus-draft-meta-information-header)
+
鐃緒申��申鐃緒申		  message-required-headers)
+
鐃緒申��申鐃緒申       (when (and ,group
+
鐃緒申��申鐃緒申		  (not (string= ,group "")))
+
鐃緒申��申鐃緒申	 (push (cons
+
鐃緒申��申鐃緒申		(intern gnus-draft-meta-information-header)
+
鐃緒申��申鐃緒申		(gnus-inews-make-draft))
+
鐃緒申��申鐃緒申	       message-required-headers))
+
鐃緒申��申鐃緒申       (unwind-protect
+
鐃緒申��申鐃緒申	   (progn
+
鐃緒申��申鐃緒申	     ,@forms)
+
鐃緒申��申鐃緒申	 (gnus-inews-add-send-actions ,winconf ,buffer ,article ,config
+
鐃緒申��申鐃緒申				      ,yanked)
+
鐃緒申��申鐃緒申	 (setq gnus-message-buffer (current-buffer))
+
鐃緒申��申鐃緒申	 (set (make-local-variable 'gnus-message-group-art)
+
鐃緒申��申鐃緒申	      (cons ,group ,article))
+
鐃緒申��申鐃緒申	 (set (make-local-variable 'gnus-newsgroup-name) ,group)
+
鐃緒申��申鐃緒申	 (gnus-run-hooks 'gnus-message-setup-hook)
+
鐃緒申��申鐃緒申	 (if (eq major-mode 'message-mode)
+
鐃緒申��申鐃緒申	     (let ((mbl1 mml-buffer-list))
+
鐃緒申��申鐃緒申	       (setq mml-buffer-list mbl)  ;; Global value
+
鐃緒申��申鐃緒申	       (set (make-local-variable 'mml-buffer-list) mbl1);; Local value
+
鐃緒申��申鐃緒申	       (gnus-make-local-hook 'kill-buffer-hook)
+
鐃緒申��申鐃緒申	       (gnus-make-local-hook 'change-major-mode-hook)
+
鐃緒申��申鐃緒申	       (add-hook 'change-major-mode-hook 'mml-destroy-buffers nil t)
+
鐃緒申��申鐃緒申	       (add-hook 'kill-buffer-hook 'mml-destroy-buffers t t))
+
鐃緒申��申鐃緒申	   (mml-destroy-buffers)
+
鐃緒申��申鐃緒申	   (setq mml-buffer-list mbl)))
+
鐃緒申��申鐃緒申       (message-hide-headers)
+
鐃緒申��申鐃緒申       (gnus-add-buffer)
+
鐃緒申��申鐃緒申       (gnus-configure-windows ,config t)
+
鐃緒申��申鐃緒申       (run-hooks 'post-command-hook)
+
鐃緒申��申鐃緒申       (set-buffer-modified-p nil))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-inews-make-draft-meta-information (group article)
+
鐃緒申��申鐃緒申  (concat "(\"" group "\" "
+
鐃緒申��申鐃緒申	  (if article (number-to-string
+
鐃緒申��申鐃緒申		       (if (listp article)
+
鐃緒申��申鐃緒申			   (car article)
+
鐃緒申��申鐃緒申			 article)) "\"\"")
+
鐃緒申��申鐃緒申	  ")"))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;###autoload
+
鐃緒申��申鐃緒申(defun gnus-msg-mail (&optional to subject other-headers continue
+
鐃緒申��申鐃緒申				switch-action yank-action send-actions)
+
鐃緒申��申鐃緒申  "Start editing a mail message to be sent.
+
鐃緒申��申鐃緒申Like `message-mail', but with Gnus paraphernalia, particularly the
+
鐃緒申��申鐃緒申Gcc: header for archiving purposes."
+
鐃緒申��申鐃緒申  (interactive)
+
鐃緒申��申鐃緒申  (let ((buf (current-buffer))
+
鐃緒申��申鐃緒申	mail-buf)
+
鐃緒申��申鐃緒申    (gnus-setup-message 'message
+
鐃緒申��申鐃緒申      (message-mail to subject other-headers continue
+
鐃緒申��申鐃緒申		    nil yank-action send-actions))
+
鐃緒申��申鐃緒申    (when switch-action
+
鐃緒申��申鐃緒申      (setq mail-buf (current-buffer))
+
鐃緒申��申鐃緒申      (switch-to-buffer buf)
+
鐃緒申��申鐃緒申      (apply switch-action mail-buf nil)))
+
鐃緒申��申鐃緒申  ;; COMPOSEFUNC should return t if succeed.  Undocumented ???
+
鐃緒申��申鐃緒申  t)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;###autoload
+
鐃緒申��申鐃緒申(defun gnus-button-mailto (address)
+
鐃緒申��申鐃緒申  "Mail to ADDRESS."
+
鐃緒申��申鐃緒申  (set-buffer (gnus-copy-article-buffer))
+
鐃緒申��申鐃緒申  (gnus-setup-message 'message
+
鐃緒申��申鐃緒申    (message-reply address)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;###autoload
+
鐃緒申��申鐃緒申(defun gnus-button-reply (&optional to-address wide)
+
鐃緒申��申鐃緒申  "Like `message-reply'."
+
鐃緒申��申鐃緒申  (interactive)
+
鐃緒申��申鐃緒申  (gnus-setup-message 'message
+
鐃緒申��申鐃緒申    (message-reply to-address wide)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;###autoload
+
鐃緒申��申鐃緒申(define-mail-user-agent 'gnus-user-agent
+
鐃緒申��申鐃緒申  'gnus-msg-mail 'message-send-and-exit
+
鐃緒申��申鐃緒申  'message-kill-buffer 'message-send-hook)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-setup-posting-charset (group)
+
鐃緒申��申鐃緒申  (let ((alist gnus-group-posting-charset-alist)
+
鐃緒申��申鐃緒申	(group (or group ""))
+
鐃緒申��申鐃緒申	elem)
+
鐃緒申��申鐃緒申    (when group
+
鐃緒申��申鐃緒申      (catch 'found
+
鐃緒申��申鐃緒申	(while (setq elem (pop alist))
+
鐃緒申��申鐃緒申	  (when (or (and (stringp (car elem))
+
鐃緒申��申鐃緒申			 (string-match (car elem) group))
+
鐃緒申��申鐃緒申		    (and (functionp (car elem))
+
鐃緒申��申鐃緒申			 (funcall (car elem) group))
+
鐃緒申��申鐃緒申		    (and (symbolp (car elem))
+
鐃緒申��申鐃緒申			 (symbol-value (car elem))))
+
鐃緒申��申鐃緒申	    (throw 'found (cons (cadr elem) (caddr elem)))))))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-inews-add-send-actions (winconf buffer article
+
鐃緒申��申鐃緒申					    &optional config yanked)
+
鐃緒申��申鐃緒申  (gnus-make-local-hook 'message-sent-hook)
+
鐃緒申��申鐃緒申  (add-hook 'message-sent-hook (if gnus-agent 'gnus-agent-possibly-do-gcc
+
鐃緒申��申鐃緒申				 'gnus-inews-do-gcc) nil t)
+
鐃緒申��申鐃緒申  (when gnus-agent
+
鐃緒申��申鐃緒申    (gnus-make-local-hook 'message-header-hook)
+
鐃緒申��申鐃緒申    (add-hook 'message-header-hook 'gnus-agent-possibly-save-gcc nil t))
+
鐃緒申��申鐃緒申  (setq message-post-method
+
鐃緒申��申鐃緒申	`(lambda (arg)
+
鐃緒申��申鐃緒申	   (gnus-post-method arg ,gnus-newsgroup-name)))
+
鐃緒申��申鐃緒申  (setq message-newsreader (setq message-mailer (gnus-extended-version)))
+
鐃緒申��申鐃緒申  (message-add-action
+
鐃緒申��申鐃緒申   `(when (gnus-buffer-exists-p ,buffer)
+
鐃緒申��申鐃緒申      (set-window-configuration ,winconf))
+
鐃緒申��申鐃緒申   'exit 'postpone 'kill)
+
鐃緒申��申鐃緒申  (let ((to-be-marked (cond
+
鐃緒申��申鐃緒申		       (yanked
+
鐃緒申��申鐃緒申			(mapcar
+
鐃緒申��申鐃緒申			 (lambda (x) (if (listp x) (car x) x)) yanked))
+
鐃緒申��申鐃緒申		       (article (if (listp article) article (list article)))
+
鐃緒申��申鐃緒申		       (t nil))))
+
鐃緒申��申鐃緒申    (message-add-action
+
鐃緒申��申鐃緒申     `(when (gnus-buffer-exists-p ,buffer)
+
鐃緒申��申鐃緒申	(save-excursion
+
鐃緒申��申鐃緒申	  (set-buffer ,buffer)
+
鐃緒申��申鐃緒申	  ,(when to-be-marked
+
鐃緒申��申鐃緒申	     (if (eq config 'forward)
+
鐃緒申��申鐃緒申		 `(gnus-summary-mark-article-as-forwarded ',to-be-marked)
+
鐃緒申��申鐃緒申	       `(gnus-summary-mark-article-as-replied ',to-be-marked)))))
+
鐃緒申��申鐃緒申     'send)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(put 'gnus-setup-message 'lisp-indent-function 1)
+
鐃緒申��申鐃緒申(put 'gnus-setup-message 'edebug-form-spec '(form body))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;; Post news commands of Gnus group mode and summary mode
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-group-mail (&optional arg)
+
鐃緒申��申鐃緒申  "Start composing a mail.
+
鐃緒申��申鐃緒申If ARG, use the group under the point to find a posting style.
+
鐃緒申��申鐃緒申If ARG is 1, prompt for a group name to find the posting style."
+
鐃緒申��申鐃緒申  (interactive "P")
+
鐃緒申��申鐃緒申  ;; We can't `let' gnus-newsgroup-name here, since that leads
+
鐃緒申��申鐃緒申  ;; to local variables leaking.
+
鐃緒申��申鐃緒申  (let ((group gnus-newsgroup-name)
+
鐃緒申��申鐃緒申	;; make sure last viewed article doesn't affect posting styles:
+
鐃緒申��申鐃緒申	(gnus-article-copy)
+
鐃緒申��申鐃緒申	(buffer (current-buffer)))
+
鐃緒申��申鐃緒申    (unwind-protect
+
鐃緒申��申鐃緒申	(progn
+
鐃緒申��申鐃緒申	  (setq gnus-newsgroup-name
+
鐃緒申��申鐃緒申		(if arg
+
鐃緒申��申鐃緒申		    (if (= 1 (prefix-numeric-value arg))
+
鐃緒申��申鐃緒申			(completing-read "Use posting style of group: "
+
鐃緒申��申鐃緒申					 gnus-active-hashtb nil
+
鐃緒申��申鐃緒申					 (gnus-read-active-file-p))
+
鐃緒申��申鐃緒申		      (gnus-group-group-name))
+
鐃緒申��申鐃緒申		  ""))
+
鐃緒申��申鐃緒申	  ;; #### see comment in gnus-setup-message -- drv
+
鐃緒申��申鐃緒申	  (gnus-setup-message 'message (message-mail)))
+
鐃緒申��申鐃緒申      (save-excursion
+
鐃緒申��申鐃緒申	(set-buffer buffer)
+
鐃緒申��申鐃緒申	(setq gnus-newsgroup-name group)))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-group-news (&optional arg)
+
鐃緒申��申鐃緒申  "Start composing a news.
+
鐃緒申��申鐃緒申If ARG, post to group under point.
+
鐃緒申��申鐃緒申If ARG is 1, prompt for group name to post to.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申This function prepares a news even when using mail groups.  This is useful
+
鐃緒申��申鐃緒申for posting messages to mail groups without actually sending them over the
+
鐃緒申��申鐃緒申network.  The corresponding back end must have a 'request-post method."
+
鐃緒申��申鐃緒申  (interactive "P")
+
鐃緒申��申鐃緒申  ;; We can't `let' gnus-newsgroup-name here, since that leads
+
鐃緒申��申鐃緒申  ;; to local variables leaking.
+
鐃緒申��申鐃緒申  (let ((group gnus-newsgroup-name)
+
鐃緒申��申鐃緒申	;; make sure last viewed article doesn't affect posting styles:
+
鐃緒申��申鐃緒申	(gnus-article-copy)
+
鐃緒申��申鐃緒申	(buffer (current-buffer)))
+
鐃緒申��申鐃緒申    (unwind-protect
+
鐃緒申��申鐃緒申	(progn
+
鐃緒申��申鐃緒申	  (setq gnus-newsgroup-name
+
鐃緒申��申鐃緒申		(if arg
+
鐃緒申��申鐃緒申		    (if (= 1 (prefix-numeric-value arg))
+
鐃緒申��申鐃緒申			(completing-read "Use group: "
+
鐃緒申��申鐃緒申					 gnus-active-hashtb nil
+
鐃緒申��申鐃緒申					 (gnus-read-active-file-p))
+
鐃緒申��申鐃緒申		      (gnus-group-group-name))
+
鐃緒申��申鐃緒申		  ""))
+
鐃緒申��申鐃緒申	  ;; #### see comment in gnus-setup-message -- drv
+
鐃緒申��申鐃緒申	  (gnus-setup-message 'message
+
鐃緒申��申鐃緒申	    (message-news (gnus-group-real-name gnus-newsgroup-name))))
+
鐃緒申��申鐃緒申      (save-excursion
+
鐃緒申��申鐃緒申	(set-buffer buffer)
+
鐃緒申��申鐃緒申	(setq gnus-newsgroup-name group)))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-group-post-news (&optional arg)
+
鐃緒申��申鐃緒申  "Start composing a message (a news by default).
+
鐃緒申��申鐃緒申If ARG, post to group under point.  If ARG is 1, prompt for group name.
+
鐃緒申��申鐃緒申Depending on the selected group, the message might be either a mail or
+
鐃緒申��申鐃緒申a news."
+
鐃緒申��申鐃緒申  (interactive "P")
+
鐃緒申��申鐃緒申  ;; Bind this variable here to make message mode hooks work ok.
+
鐃緒申��申鐃緒申  (let ((gnus-newsgroup-name
+
鐃緒申��申鐃緒申	 (if arg
+
鐃緒申��申鐃緒申	     (if (= 1 (prefix-numeric-value arg))
+
鐃緒申��申鐃緒申		 (completing-read "Newsgroup: " gnus-active-hashtb nil
+
鐃緒申��申鐃緒申				  (gnus-read-active-file-p))
+
鐃緒申��申鐃緒申	       (gnus-group-group-name))
+
鐃緒申��申鐃緒申	   ""))
+
鐃緒申��申鐃緒申	;; make sure last viewed article doesn't affect posting styles:
+
鐃緒申��申鐃緒申	(gnus-article-copy))
+
鐃緒申��申鐃緒申    (gnus-post-news 'post gnus-newsgroup-name nil nil nil nil
+
鐃緒申��申鐃緒申		    (string= gnus-newsgroup-name ""))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-summary-mail-other-window (&optional arg)
+
鐃緒申��申鐃緒申  "Start composing a mail in another window.
+
鐃緒申��申鐃緒申Use the posting of the current group by default.
+
鐃緒申��申鐃緒申If ARG, don't do that.  If ARG is 1, prompt for group name to find the
+
鐃緒申��申鐃緒申posting style."
+
鐃緒申��申鐃緒申  (interactive "P")
+
鐃緒申��申鐃緒申  ;; We can't `let' gnus-newsgroup-name here, since that leads
+
鐃緒申��申鐃緒申  ;; to local variables leaking.
+
鐃緒申��申鐃緒申  (let ((group gnus-newsgroup-name)
+
鐃緒申��申鐃緒申	;; make sure last viewed article doesn't affect posting styles:
+
鐃緒申��申鐃緒申	(gnus-article-copy)
+
鐃緒申��申鐃緒申	(buffer (current-buffer)))
+
鐃緒申��申鐃緒申    (unwind-protect
+
鐃緒申��申鐃緒申	(progn
+
鐃緒申��申鐃緒申	  (setq gnus-newsgroup-name
+
鐃緒申��申鐃緒申		(if arg
+
鐃緒申��申鐃緒申		    (if (= 1 (prefix-numeric-value arg))
+
鐃緒申��申鐃緒申			(completing-read "Use group: "
+
鐃緒申��申鐃緒申					 gnus-active-hashtb nil
+
鐃緒申��申鐃緒申					 (gnus-read-active-file-p))
+
鐃緒申��申鐃緒申		      "")
+
鐃緒申��申鐃緒申		  gnus-newsgroup-name))
+
鐃緒申��申鐃緒申	  ;; #### see comment in gnus-setup-message -- drv
+
鐃緒申��申鐃緒申	  (gnus-setup-message 'message (message-mail)))
+
鐃緒申��申鐃緒申      (save-excursion
+
鐃緒申��申鐃緒申	(set-buffer buffer)
+
鐃緒申��申鐃緒申	(setq gnus-newsgroup-name group)))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-summary-news-other-window (&optional arg)
+
鐃緒申��申鐃緒申  "Start composing a news in another window.
+
鐃緒申��申鐃緒申Post to the current group by default.
+
鐃緒申��申鐃緒申If ARG, don't do that.  If ARG is 1, prompt for group name to post to.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申This function prepares a news even when using mail groups.  This is useful
+
鐃緒申��申鐃緒申for posting messages to mail groups without actually sending them over the
+
鐃緒申��申鐃緒申network.  The corresponding back end must have a 'request-post method."
+
鐃緒申��申鐃緒申  (interactive "P")
+
鐃緒申��申鐃緒申  ;; We can't `let' gnus-newsgroup-name here, since that leads
+
鐃緒申��申鐃緒申  ;; to local variables leaking.
+
鐃緒申��申鐃緒申  (let ((group gnus-newsgroup-name)
+
鐃緒申��申鐃緒申	;; make sure last viewed article doesn't affect posting styles:
+
鐃緒申��申鐃緒申	(gnus-article-copy)
+
鐃緒申��申鐃緒申	(buffer (current-buffer)))
+
鐃緒申��申鐃緒申    (unwind-protect
+
鐃緒申��申鐃緒申	(progn
+
鐃緒申��申鐃緒申	  (setq gnus-newsgroup-name
+
鐃緒申��申鐃緒申		(if arg
+
鐃緒申��申鐃緒申		    (if (= 1 (prefix-numeric-value arg))
+
鐃緒申��申鐃緒申			(completing-read "Use group: "
+
鐃緒申��申鐃緒申					 gnus-active-hashtb nil
+
鐃緒申��申鐃緒申					 (gnus-read-active-file-p))
+
鐃緒申��申鐃緒申		      "")
+
鐃緒申��申鐃緒申		  gnus-newsgroup-name))
+
鐃緒申��申鐃緒申	  ;; #### see comment in gnus-setup-message -- drv
+
鐃緒申��申鐃緒申	  (gnus-setup-message 'message
+
鐃緒申��申鐃緒申	    (progn
+
鐃緒申��申鐃緒申	      (message-news (gnus-group-real-name gnus-newsgroup-name))
+
鐃緒申��申鐃緒申	      (set (make-local-variable 'gnus-discouraged-post-methods)
+
鐃緒申��申鐃緒申		   (delq
+
鐃緒申��申鐃緒申		    (car (gnus-find-method-for-group gnus-newsgroup-name))
+
鐃緒申��申鐃緒申		    (copy-sequence gnus-discouraged-post-methods))))))
+
鐃緒申��申鐃緒申      (save-excursion
+
鐃緒申��申鐃緒申	(set-buffer buffer)
+
鐃緒申��申鐃緒申	(setq gnus-newsgroup-name group)))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-summary-post-news (&optional arg)
+
鐃緒申��申鐃緒申  "Start composing a message.  Post to the current group by default.
+
鐃緒申��申鐃緒申If ARG, don't do that.  If ARG is 1, prompt for a group name to post to.
+
鐃緒申��申鐃緒申Depending on the selected group, the message might be either a mail or
+
鐃緒申��申鐃緒申a news."
+
鐃緒申��申鐃緒申  (interactive "P")
+
鐃緒申��申鐃緒申  ;; Bind this variable here to make message mode hooks work ok.
+
鐃緒申��申鐃緒申  (let ((gnus-newsgroup-name
+
鐃緒申��申鐃緒申	 (if arg
+
鐃緒申��申鐃緒申	     (if (= 1 (prefix-numeric-value arg))
+
鐃緒申��申鐃緒申		 (completing-read "Newsgroup: " gnus-active-hashtb nil
+
鐃緒申��申鐃緒申				  (gnus-read-active-file-p))
+
鐃緒申��申鐃緒申	       "")
+
鐃緒申��申鐃緒申	   gnus-newsgroup-name))
+
鐃緒申��申鐃緒申	;; make sure last viewed article doesn't affect posting styles:
+
鐃緒申��申鐃緒申	(gnus-article-copy))
+
鐃緒申��申鐃緒申    (gnus-post-news 'post gnus-newsgroup-name)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-summary-followup (yank &optional force-news)
+
鐃緒申��申鐃緒申  "Compose a followup to an article.
+
鐃緒申��申鐃緒申If prefix argument YANK is non-nil, the original article is yanked
+
鐃緒申��申鐃緒申automatically.
+
鐃緒申��申鐃緒申YANK is a list of elements, where the car of each element is the
+
鐃緒申��申鐃緒申article number, and the cdr is the string to be yanked."
+
鐃緒申��申鐃緒申  (interactive
+
鐃緒申��申鐃緒申   (list (and current-prefix-arg
+
鐃緒申��申鐃緒申	      (gnus-summary-work-articles 1))))
+
鐃緒申��申鐃緒申  (when yank
+
鐃緒申��申鐃緒申    (gnus-summary-goto-subject
+
鐃緒申��申鐃緒申     (if (listp (car yank))
+
鐃緒申��申鐃緒申	 (caar yank)
+
鐃緒申��申鐃緒申       (car yank))))
+
鐃緒申��申鐃緒申  (save-window-excursion
+
鐃緒申��申鐃緒申    (gnus-summary-select-article))
+
鐃緒申��申鐃緒申  (let ((headers (gnus-summary-article-header (gnus-summary-article-number)))
+
鐃緒申��申鐃緒申	(gnus-newsgroup-name gnus-newsgroup-name))
+
鐃緒申��申鐃緒申    ;; Send a followup.
+
鐃緒申��申鐃緒申    (gnus-post-news nil gnus-newsgroup-name
+
鐃緒申��申鐃緒申		    headers gnus-article-buffer
+
鐃緒申��申鐃緒申		    yank nil force-news)
+
鐃緒申��申鐃緒申    (gnus-summary-handle-replysign)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-summary-followup-with-original (n &optional force-news)
+
鐃緒申��申鐃緒申  "Compose a followup to an article and include the original article.
+
鐃緒申��申鐃緒申The text in the region will be yanked.  If the region isn't
+
鐃緒申��申鐃緒申active, the entire article will be yanked."
+
鐃緒申��申鐃緒申  (interactive "P")
+
鐃緒申��申鐃緒申  (gnus-summary-followup (gnus-summary-work-articles n) force-news))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-summary-followup-to-mail (&optional arg)
+
鐃緒申��申鐃緒申  "Followup to the current mail message via news."
+
鐃緒申��申鐃緒申  (interactive
+
鐃緒申��申鐃緒申   (list (and current-prefix-arg
+
鐃緒申��申鐃緒申	      (gnus-summary-work-articles 1))))
+
鐃緒申��申鐃緒申  (gnus-summary-followup arg t))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-summary-followup-to-mail-with-original (&optional arg)
+
鐃緒申��申鐃緒申  "Followup to the current mail message via news."
+
鐃緒申��申鐃緒申  (interactive "P")
+
鐃緒申��申鐃緒申  (gnus-summary-followup (gnus-summary-work-articles arg) t))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-inews-yank-articles (articles)
+
鐃緒申��申鐃緒申  (let (beg article yank-string)
+
鐃緒申��申鐃緒申    (message-goto-body)
+
鐃緒申��申鐃緒申    (while (setq article (pop articles))
+
鐃緒申��申鐃緒申      (when (listp article)
+
鐃緒申��申鐃緒申	(setq yank-string (nth 1 article)
+
鐃緒申��申鐃緒申	      article (nth 0 article)))
+
鐃緒申��申鐃緒申      (save-window-excursion
+
鐃緒申��申鐃緒申	(set-buffer gnus-summary-buffer)
+
鐃緒申��申鐃緒申	(gnus-summary-select-article nil nil nil article)
+
鐃緒申��申鐃緒申	(gnus-summary-remove-process-mark article))
+
鐃緒申��申鐃緒申      (gnus-copy-article-buffer nil yank-string)
+
鐃緒申��申鐃緒申      (let ((message-reply-buffer gnus-article-copy)
+
鐃緒申��申鐃緒申	    (message-reply-headers
+
鐃緒申��申鐃緒申	     ;; The headers are decoded.
+
鐃緒申��申鐃緒申	     (with-current-buffer gnus-article-copy
+
鐃緒申��申鐃緒申	       (save-restriction
+
鐃緒申��申鐃緒申		 (nnheader-narrow-to-headers)
+
鐃緒申��申鐃緒申		 (nnheader-parse-naked-head)))))
+
鐃緒申��申鐃緒申	(message-yank-original)
+
鐃緒申��申鐃緒申	(setq beg (or beg (mark t))))
+
鐃緒申��申鐃緒申      (when articles
+
鐃緒申��申鐃緒申	(insert "\n")))
+
鐃緒申��申鐃緒申    (push-mark)
+
鐃緒申��申鐃緒申    (goto-char beg)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-summary-cancel-article (&optional n symp)
+
鐃緒申��申鐃緒申  "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."
+
鐃緒申��申鐃緒申  (interactive (gnus-interactive "P\ny"))
+
鐃緒申��申鐃緒申  (let ((articles (gnus-summary-work-articles n))
+
鐃緒申��申鐃緒申	(message-post-method
+
鐃緒申��申鐃緒申	 `(lambda (arg)
+
鐃緒申��申鐃緒申	    (gnus-post-method (eq ',symp 'a) ,gnus-newsgroup-name)))
+
鐃緒申��申鐃緒申	article)
+
鐃緒申��申鐃緒申    (while (setq article (pop articles))
+
鐃緒申��申鐃緒申      (when (gnus-summary-select-article t nil nil article)
+
鐃緒申��申鐃緒申	(when (gnus-eval-in-buffer-window gnus-original-article-buffer
+
鐃緒申��申鐃緒申		(message-cancel-news))
+
鐃緒申��申鐃緒申	  (gnus-summary-mark-as-read article gnus-canceled-mark)
+
鐃緒申��申鐃緒申	  (gnus-cache-remove-article 1))
+
鐃緒申��申鐃緒申	(gnus-article-hide-headers-if-wanted))
+
鐃緒申��申鐃緒申      (gnus-summary-remove-process-mark article))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-summary-supersede-article ()
+
鐃緒申��申鐃緒申  "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."
+
鐃緒申��申鐃緒申  (interactive)
+
鐃緒申��申鐃緒申  (let ((article (gnus-summary-article-number)))
+
鐃緒申��申鐃緒申    (gnus-setup-message 'reply-yank
+
鐃緒申��申鐃緒申      (gnus-summary-select-article t)
+
鐃緒申��申鐃緒申      (set-buffer gnus-original-article-buffer)
+
鐃緒申��申鐃緒申      (message-supersede)
+
鐃緒申��申鐃緒申      (push
+
鐃緒申��申鐃緒申       `((lambda ()
+
鐃緒申��申鐃緒申	   (when (gnus-buffer-exists-p ,gnus-summary-buffer)
+
鐃緒申��申鐃緒申	     (save-excursion
+
鐃緒申��申鐃緒申	       (set-buffer ,gnus-summary-buffer)
+
鐃緒申��申鐃緒申	       (gnus-cache-possibly-remove-article ,article nil nil nil t)
+
鐃緒申��申鐃緒申	       (gnus-summary-mark-as-read ,article gnus-canceled-mark)))))
+
鐃緒申��申鐃緒申       message-send-actions))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-copy-article-buffer (&optional article-buffer yank-string)
+
鐃緒申��申鐃緒申  ;; make a copy of the article buffer with all text properties removed
+
鐃緒申��申鐃緒申  ;; this copy is in the buffer gnus-article-copy.
+
鐃緒申��申鐃緒申  ;; if ARTICLE-BUFFER is nil, gnus-article-buffer is used
+
鐃緒申��申鐃緒申  ;; this buffer should be passed to all mail/news reply/post routines.
+
鐃緒申��申鐃緒申  (setq gnus-article-copy (gnus-get-buffer-create " *gnus article copy*"))
+
鐃緒申��申鐃緒申  (save-excursion
+
鐃緒申��申鐃緒申    (set-buffer gnus-article-copy)
+
鐃緒申��申鐃緒申    (mm-enable-multibyte))
+
鐃緒申��申鐃緒申  (let ((article-buffer (or article-buffer gnus-article-buffer))
+
鐃緒申��申鐃緒申	end beg)
+
鐃緒申��申鐃緒申    (if (not (and (get-buffer article-buffer)
+
鐃緒申��申鐃緒申		  (gnus-buffer-exists-p article-buffer)))
+
鐃緒申��申鐃緒申	(error "Can't find any article buffer")
+
鐃緒申��申鐃緒申      (save-excursion
+
鐃緒申��申鐃緒申	(set-buffer article-buffer)
+
鐃緒申��申鐃緒申	(let ((gnus-newsgroup-charset (or gnus-article-charset
+
鐃緒申��申鐃緒申					  gnus-newsgroup-charset))
+
鐃緒申��申鐃緒申	      (gnus-newsgroup-ignored-charsets
+
鐃緒申��申鐃緒申	       (or gnus-article-ignored-charsets
+
鐃緒申��申鐃緒申		   gnus-newsgroup-ignored-charsets)))
+
鐃緒申��申鐃緒申	  (save-restriction
+
鐃緒申��申鐃緒申	    ;; Copy over the (displayed) article buffer, delete
+
鐃緒申��申鐃緒申	    ;; hidden text and remove text properties.
+
鐃緒申��申鐃緒申	    (widen)
+
鐃緒申��申鐃緒申	    (copy-to-buffer gnus-article-copy (point-min) (point-max))
+
鐃緒申��申鐃緒申	    (set-buffer gnus-article-copy)
+
鐃緒申��申鐃緒申	    (when yank-string
+
鐃緒申��申鐃緒申	      (message-goto-body)
+
鐃緒申��申鐃緒申	      (delete-region (point) (point-max))
+
鐃緒申��申鐃緒申	      (insert yank-string))
+
鐃緒申��申鐃緒申	    (gnus-article-delete-text-of-type 'annotation)
+
鐃緒申��申鐃緒申	    (gnus-article-delete-text-of-type 'multipart)
+
鐃緒申��申鐃緒申	    (gnus-remove-text-with-property 'gnus-prev)
+
鐃緒申��申鐃緒申	    (gnus-remove-text-with-property 'gnus-next)
+
鐃緒申��申鐃緒申	    (gnus-remove-text-with-property 'gnus-decoration)
+
鐃緒申��申鐃緒申	    (insert
+
鐃緒申��申鐃緒申	     (prog1
+
鐃緒申��申鐃緒申		 (buffer-substring-no-properties (point-min) (point-max))
+
鐃緒申��申鐃緒申	       (erase-buffer)))
+
鐃緒申��申鐃緒申	    ;; Find the original headers.
+
鐃緒申��申鐃緒申	    (set-buffer gnus-original-article-buffer)
+
鐃緒申��申鐃緒申	    (goto-char (point-min))
+
鐃緒申��申鐃緒申	    (while (looking-at message-unix-mail-delimiter)
+
鐃緒申��申鐃緒申	      (forward-line 1))
+
鐃緒申��申鐃緒申	    (let ((mail-header-separator ""))
+
鐃緒申��申鐃緒申	      (setq beg (point)
+
鐃緒申��申鐃緒申		    end (or (message-goto-body)
+
鐃緒申��申鐃緒申			    ;; There may be just a header.
+
鐃緒申��申鐃緒申			    (point-max))))
+
鐃緒申��申鐃緒申	    ;; Delete the headers from the displayed articles.
+
鐃緒申��申鐃緒申	    (set-buffer gnus-article-copy)
+
鐃緒申��申鐃緒申	    (let ((mail-header-separator ""))
+
鐃緒申��申鐃緒申	      (delete-region (goto-char (point-min))
+
鐃緒申��申鐃緒申			     (or (message-goto-body) (point-max))))
+
鐃緒申��申鐃緒申	    ;; Insert the original article headers.
+
鐃緒申��申鐃緒申	    (insert-buffer-substring gnus-original-article-buffer beg end)
+
鐃緒申��申鐃緒申	    ;; Decode charsets.
+
鐃緒申��申鐃緒申	    (let ((gnus-article-decode-hook
+
鐃緒申��申鐃緒申		   (delq 'article-decode-charset
+
鐃緒申��申鐃緒申			 (copy-sequence gnus-article-decode-hook)))
+
鐃緒申��申鐃緒申		  (rfc2047-quote-decoded-words-containing-tspecials t))
+
鐃緒申��申鐃緒申	      (run-hooks 'gnus-article-decode-hook)))))
+
鐃緒申��申鐃緒申      gnus-article-copy)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-post-news (post &optional group header article-buffer yank subject
+
鐃緒申��申鐃緒申			    force-news)
+
鐃緒申��申鐃緒申  (when article-buffer
+
鐃緒申��申鐃緒申    (gnus-copy-article-buffer))
+
鐃緒申��申鐃緒申  (let ((gnus-article-reply (and article-buffer (gnus-summary-article-number)))
+
鐃緒申��申鐃緒申	(gnus-article-yanked-articles yank)
+
鐃緒申��申鐃緒申	(add-to-list gnus-add-to-list))
+
鐃緒申��申鐃緒申    (gnus-setup-message (cond (yank 'reply-yank)
+
鐃緒申��申鐃緒申			      (article-buffer 'reply)
+
鐃緒申��申鐃緒申			      (t 'message))
+
鐃緒申��申鐃緒申      (let* ((group (or group gnus-newsgroup-name))
+
鐃緒申��申鐃緒申	     (charset (gnus-group-name-charset nil group))
+
鐃緒申��申鐃緒申	     (pgroup group)
+
鐃緒申��申鐃緒申	     to-address to-group mailing-list to-list
+
鐃緒申��申鐃緒申	     newsgroup-p)
+
鐃緒申��申鐃緒申	(when group
+
鐃緒申��申鐃緒申	  (setq to-address (gnus-parameter-to-address group)
+
鐃緒申��申鐃緒申		to-group (gnus-group-find-parameter group 'to-group)
+
鐃緒申��申鐃緒申		to-list (gnus-parameter-to-list group)
+
鐃緒申��申鐃緒申		newsgroup-p (gnus-group-find-parameter group 'newsgroup)
+
鐃緒申��申鐃緒申		mailing-list (when gnus-mailing-list-groups
+
鐃緒申��申鐃緒申			       (string-match gnus-mailing-list-groups group))
+
鐃緒申��申鐃緒申		group (gnus-group-name-decode (gnus-group-real-name group)
+
鐃緒申��申鐃緒申					      charset)))
+
鐃緒申��申鐃緒申	(if (or (and to-group
+
鐃緒申��申鐃緒申		     (gnus-news-group-p to-group))
+
鐃緒申��申鐃緒申		newsgroup-p
+
鐃緒申��申鐃緒申		force-news
+
鐃緒申��申鐃緒申		(and (gnus-news-group-p
+
鐃緒申��申鐃緒申		      (or pgroup gnus-newsgroup-name)
+
鐃緒申��申鐃緒申		      (or header gnus-current-article))
+
鐃緒申��申鐃緒申		     (not mailing-list)
+
鐃緒申��申鐃緒申		     (not to-list)
+
鐃緒申��申鐃緒申		     (not to-address)))
+
鐃緒申��申鐃緒申	    ;; This is news.
+
鐃緒申��申鐃緒申	    (if post
+
鐃緒申��申鐃緒申		(message-news
+
鐃緒申��申鐃緒申		 (or to-group
+
鐃緒申��申鐃緒申		     (and (not (gnus-virtual-group-p pgroup)) group)))
+
鐃緒申��申鐃緒申	      (set-buffer gnus-article-copy)
+
鐃緒申��申鐃緒申	      (gnus-msg-treat-broken-reply-to)
+
鐃緒申��申鐃緒申	      (message-followup (if (or newsgroup-p force-news)
+
鐃緒申��申鐃緒申				    (if (save-restriction
+
鐃緒申��申鐃緒申					  (article-narrow-to-head)
+
鐃緒申��申鐃緒申					  (message-fetch-field "newsgroups"))
+
鐃緒申��申鐃緒申					nil
+
鐃緒申��申鐃緒申				      "")
+
鐃緒申��申鐃緒申				  to-group)))
+
鐃緒申��申鐃緒申	  ;; The is mail.
+
鐃緒申��申鐃緒申	  (if post
+
鐃緒申��申鐃緒申	      (progn
+
鐃緒申��申鐃緒申		(message-mail (or to-address to-list))
+
鐃緒申��申鐃緒申		;; Arrange for mail groups that have no `to-address' to
+
鐃緒申��申鐃緒申		;; get that when the user sends off the mail.
+
鐃緒申��申鐃緒申		(when (and (not to-list)
+
鐃緒申��申鐃緒申			   (not to-address)
+
鐃緒申��申鐃緒申			   add-to-list)
+
鐃緒申��申鐃緒申		  (push (list 'gnus-inews-add-to-address pgroup)
+
鐃緒申��申鐃緒申			message-send-actions)))
+
鐃緒申��申鐃緒申	    (set-buffer gnus-article-copy)
+
鐃緒申��申鐃緒申	    (gnus-msg-treat-broken-reply-to)
+
鐃緒申��申鐃緒申	    (message-wide-reply to-address)))
+
鐃緒申��申鐃緒申	(when yank
+
鐃緒申��申鐃緒申	  (gnus-inews-yank-articles yank))))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-msg-treat-broken-reply-to (&optional force)
+
鐃緒申��申鐃緒申  "Remove the Reply-to header if broken-reply-to."
+
鐃緒申��申鐃緒申  (when (or force
+
鐃緒申��申鐃緒申	    (gnus-group-find-parameter
+
鐃緒申��申鐃緒申	     gnus-newsgroup-name 'broken-reply-to))
+
鐃緒申��申鐃緒申    (save-restriction
+
鐃緒申��申鐃緒申      (message-narrow-to-head)
+
鐃緒申��申鐃緒申      (message-remove-header "reply-to"))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-post-method (arg group &optional silent)
+
鐃緒申��申鐃緒申  "Return the posting method based on GROUP and ARG.
+
鐃緒申��申鐃緒申If SILENT, don't prompt the user."
+
鐃緒申��申鐃緒申  (let ((gnus-post-method (or (gnus-parameter-post-method group)
+
鐃緒申��申鐃緒申			      gnus-post-method))
+
鐃緒申��申鐃緒申	(group-method (gnus-find-method-for-group group)))
+
鐃緒申��申鐃緒申    (cond
+
鐃緒申��申鐃緒申     ;; If the group-method is nil (which shouldn't happen) we use
+
鐃緒申��申鐃緒申     ;; the default method.
+
鐃緒申��申鐃緒申     ((null group-method)
+
鐃緒申��申鐃緒申      (or (and (listp gnus-post-method)	;If not current/native/nil
+
鐃緒申��申鐃緒申	       (not (listp (car gnus-post-method))) ; and not a list of methods
+
鐃緒申��申鐃緒申	       gnus-post-method)	;then use it.
+
鐃緒申��申鐃緒申	  gnus-select-method
+
鐃緒申��申鐃緒申	  message-post-method))
+
鐃緒申��申鐃緒申     ;; We want the inverse of the default
+
鐃緒申��申鐃緒申     ((and arg (not (eq arg 0)))
+
鐃緒申��申鐃緒申      (if (eq gnus-post-method 'current)
+
鐃緒申��申鐃緒申	  gnus-select-method
+
鐃緒申��申鐃緒申	group-method))
+
鐃緒申��申鐃緒申     ;; We query the user for a post method.
+
鐃緒申��申鐃緒申     ((or arg
+
鐃緒申��申鐃緒申	  (and (listp gnus-post-method)
+
鐃緒申��申鐃緒申	       (listp (car gnus-post-method))))
+
鐃緒申��申鐃緒申      (let* ((methods
+
鐃緒申��申鐃緒申	      ;; Collect all methods we know about.
+
鐃緒申��申鐃緒申	      (append
+
鐃緒申��申鐃緒申	       (when (listp gnus-post-method)
+
鐃緒申��申鐃緒申		 (if (listp (car gnus-post-method))
+
鐃緒申��申鐃緒申		     gnus-post-method
+
鐃緒申��申鐃緒申		   (list gnus-post-method)))
+
鐃緒申��申鐃緒申	       gnus-secondary-select-methods
+
鐃緒申��申鐃緒申	       (mapcar 'cdr gnus-server-alist)
+
鐃緒申��申鐃緒申	       (mapcar 'car gnus-opened-servers)
+
鐃緒申��申鐃緒申	       (list gnus-select-method)
+
鐃緒申��申鐃緒申	       (list group-method)))
+
鐃緒申��申鐃緒申	     method-alist post-methods method)
+
鐃緒申��申鐃緒申	;; Weed out all mail methods.
+
鐃緒申��申鐃緒申	(while methods
+
鐃緒申��申鐃緒申	  (setq method (gnus-server-get-method "" (pop methods)))
+
鐃緒申��申鐃緒申	  (when (and (or (gnus-method-option-p method 'post)
+
鐃緒申��申鐃緒申			 (gnus-method-option-p method 'post-mail))
+
鐃緒申��申鐃緒申		     (not (member method post-methods)))
+
鐃緒申��申鐃緒申	    (push method post-methods)))
+
鐃緒申��申鐃緒申	;; Create a name-method alist.
+
鐃緒申��申鐃緒申	(setq method-alist
+
鐃緒申��申鐃緒申	      (mapcar
+
鐃緒申��申鐃緒申	       (lambda (m)
+
鐃緒申��申鐃緒申		 (if (equal (cadr m) "")
+
鐃緒申��申鐃緒申		     (list (symbol-name (car m)) m)
+
鐃緒申��申鐃緒申		   (list (concat (cadr m) " (" (symbol-name (car m)) ")") m)))
+
鐃緒申��申鐃緒申	       post-methods))
+
鐃緒申��申鐃緒申	;; Query the user.
+
鐃緒申��申鐃緒申	(cadr
+
鐃緒申��申鐃緒申	 (assoc
+
鐃緒申��申鐃緒申	  (setq gnus-last-posting-server
+
鐃緒申��申鐃緒申		(if (and silent
+
鐃緒申��申鐃緒申			 gnus-last-posting-server)
+
鐃緒申��申鐃緒申		    ;; Just use the last value.
+
鐃緒申��申鐃緒申		    gnus-last-posting-server
+
鐃緒申��申鐃緒申		  (completing-read
+
鐃緒申��申鐃緒申		   "Posting method: " method-alist nil t
+
鐃緒申��申鐃緒申		   (cons (or gnus-last-posting-server "") 0))))
+
鐃緒申��申鐃緒申	  method-alist))))
+
鐃緒申��申鐃緒申     ;; Override normal method.
+
鐃緒申��申鐃緒申     ((and (eq gnus-post-method 'current)
+
鐃緒申��申鐃緒申	   (not (memq (car group-method) gnus-discouraged-post-methods))
+
鐃緒申��申鐃緒申	   (gnus-get-function group-method 'request-post t))
+
鐃緒申��申鐃緒申      (assert (not arg))
+
鐃緒申��申鐃緒申      group-method)
+
鐃緒申��申鐃緒申     ;; Use gnus-post-method.
+
鐃緒申��申鐃緒申     ((listp gnus-post-method)		;A method...
+
鐃緒申��申鐃緒申      (assert (not (listp (car gnus-post-method)))) ;... not a list of methods.
+
鐃緒申��申鐃緒申      gnus-post-method)
+
鐃緒申��申鐃緒申     ;; Use the normal select method (nil or native).
+
鐃緒申��申鐃緒申     (t gnus-select-method))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-extended-version ()
+
鐃緒申��申鐃緒申  "Stringified Gnus version and Emacs version.
+
鐃緒申��申鐃緒申See the variable `gnus-user-agent'."
+
鐃緒申��申鐃緒申  (interactive)
+
鐃緒申��申鐃緒申  (if (stringp gnus-user-agent)
+
鐃緒申��申鐃緒申      gnus-user-agent
+
鐃緒申��申鐃緒申    ;; `gnus-user-agent' is a list:
+
鐃緒申��申鐃緒申    (let* ((float-output-format nil)
+
鐃緒申��申鐃緒申	   (gnus-v
+
鐃緒申��申鐃緒申	    (when (memq 'gnus gnus-user-agent)
+
鐃緒申��申鐃緒申	      (concat "Gnus/"
+
鐃緒申��申鐃緒申		      (prin1-to-string (gnus-continuum-version gnus-version) t)
+
鐃緒申��申鐃緒申		      " (" gnus-version ")")))
+
鐃緒申��申鐃緒申	   (emacs-v (gnus-emacs-version)))
+
鐃緒申��申鐃緒申      (concat gnus-v (when (and gnus-v emacs-v) " ")
+
鐃緒申��申鐃緒申	      emacs-v))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;
+
鐃緒申��申鐃緒申;;; Gnus Mail Functions
+
鐃緒申��申鐃緒申;;;
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;; Mail reply commands of Gnus summary mode
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-summary-reply (&optional yank wide very-wide)
+
鐃緒申��申鐃緒申  "Start composing a mail reply to the current message.
+
鐃緒申��申鐃緒申If prefix argument YANK is non-nil, the original article is yanked
+
鐃緒申��申鐃緒申automatically.
+
鐃緒申��申鐃緒申If WIDE, make a wide reply.
+
鐃緒申��申鐃緒申If VERY-WIDE, make a very wide reply."
+
鐃緒申��申鐃緒申  (interactive
+
鐃緒申��申鐃緒申   (list (and current-prefix-arg
+
鐃緒申��申鐃緒申	      (gnus-summary-work-articles 1))))
+
鐃緒申��申鐃緒申  ;; Allow user to require confirmation before replying by mail to the
+
鐃緒申��申鐃緒申  ;; author of a news article (or mail message).
+
鐃緒申��申鐃緒申  (when (or
+
鐃緒申��申鐃緒申	    (not (or (gnus-news-group-p gnus-newsgroup-name)
+
鐃緒申��申鐃緒申		     gnus-confirm-treat-mail-like-news))
+
鐃緒申��申鐃緒申	    (not (cond ((stringp gnus-confirm-mail-reply-to-news)
+
鐃緒申��申鐃緒申			(string-match gnus-confirm-mail-reply-to-news
+
鐃緒申��申鐃緒申				      gnus-newsgroup-name))
+
鐃緒申��申鐃緒申		       ((functionp gnus-confirm-mail-reply-to-news)
+
鐃緒申��申鐃緒申			(funcall gnus-confirm-mail-reply-to-news gnus-newsgroup-name))
+
鐃緒申��申鐃緒申		       (t gnus-confirm-mail-reply-to-news)))
+
鐃緒申��申鐃緒申	    (y-or-n-p "Really reply by mail to article author? "))
+
鐃緒申��申鐃緒申    (let* ((article
+
鐃緒申��申鐃緒申	    (if (listp (car yank))
+
鐃緒申��申鐃緒申		(caar yank)
+
鐃緒申��申鐃緒申	      (car yank)))
+
鐃緒申��申鐃緒申	   (gnus-article-reply (or article (gnus-summary-article-number)))
+
鐃緒申��申鐃緒申	   (gnus-article-yanked-articles yank)
+
鐃緒申��申鐃緒申	   (headers ""))
+
鐃緒申��申鐃緒申      ;; Stripping headers should be specified with mail-yank-ignored-headers.
+
鐃緒申��申鐃緒申      (when yank
+
鐃緒申��申鐃緒申	(gnus-summary-goto-subject article))
+
鐃緒申��申鐃緒申      (gnus-setup-message (if yank 'reply-yank 'reply)
+
鐃緒申��申鐃緒申	(if (not very-wide)
+
鐃緒申��申鐃緒申	    (gnus-summary-select-article)
+
鐃緒申��申鐃緒申	  (dolist (article very-wide)
+
鐃緒申��申鐃緒申	    (gnus-summary-select-article nil nil nil article)
+
鐃緒申��申鐃緒申	    (save-excursion
+
鐃緒申��申鐃緒申	      (set-buffer (gnus-copy-article-buffer))
+
鐃緒申��申鐃緒申	      (gnus-msg-treat-broken-reply-to)
+
鐃緒申��申鐃緒申	      (save-restriction
+
鐃緒申��申鐃緒申		(message-narrow-to-head)
+
鐃緒申��申鐃緒申		(setq headers (concat headers (buffer-string)))))))
+
鐃緒申��申鐃緒申	(set-buffer (gnus-copy-article-buffer))
+
鐃緒申��申鐃緒申	(gnus-msg-treat-broken-reply-to gnus-msg-force-broken-reply-to)
+
鐃緒申��申鐃緒申	(save-restriction
+
鐃緒申��申鐃緒申	  (message-narrow-to-head)
+
鐃緒申��申鐃緒申	  (when very-wide
+
鐃緒申��申鐃緒申	    (erase-buffer)
+
鐃緒申��申鐃緒申	    (insert headers))
+
鐃緒申��申鐃緒申	  (goto-char (point-max)))
+
鐃緒申��申鐃緒申	(mml-quote-region (point) (point-max))
+
鐃緒申��申鐃緒申	(message-reply nil wide)
+
鐃緒申��申鐃緒申	(when yank
+
鐃緒申��申鐃緒申	  (gnus-inews-yank-articles yank))
+
鐃緒申��申鐃緒申	(gnus-summary-handle-replysign)))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-summary-handle-replysign ()
+
鐃緒申��申鐃緒申  "Check the various replysign variables and take action accordingly."
+
鐃緒申��申鐃緒申  (when (or gnus-message-replysign gnus-message-replyencrypt)
+
鐃緒申��申鐃緒申    (let (signed encrypted)
+
鐃緒申��申鐃緒申      (save-excursion
+
鐃緒申��申鐃緒申	(set-buffer gnus-article-buffer)
+
鐃緒申��申鐃緒申	(setq signed (memq 'signed gnus-article-wash-types))
+
鐃緒申��申鐃緒申	(setq encrypted (memq 'encrypted gnus-article-wash-types)))
+
鐃緒申��申鐃緒申      (cond ((and gnus-message-replyencrypt encrypted)
+
鐃緒申��申鐃緒申	     (mml-secure-message mml-default-encrypt-method
+
鐃緒申��申鐃緒申				 (if gnus-message-replysignencrypted
+
鐃緒申��申鐃緒申				     'signencrypt
+
鐃緒申��申鐃緒申				   'encrypt)))
+
鐃緒申��申鐃緒申	    ((and gnus-message-replysign signed)
+
鐃緒申��申鐃緒申	     (mml-secure-message mml-default-sign-method 'sign))))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-summary-reply-with-original (n &optional wide)
+
鐃緒申��申鐃緒申  "Start composing a reply mail to the current message.
+
鐃緒申��申鐃緒申The original article will be yanked."
+
鐃緒申��申鐃緒申  (interactive "P")
+
鐃緒申��申鐃緒申  (gnus-summary-reply (gnus-summary-work-articles n) wide))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-summary-reply-broken-reply-to (&optional yank wide very-wide)
+
鐃緒申��申鐃緒申  "Like `gnus-summary-reply' except removing reply-to field.
+
鐃緒申��申鐃緒申If prefix argument YANK is non-nil, the original article is yanked
+
鐃緒申��申鐃緒申automatically.
+
鐃緒申��申鐃緒申If WIDE, make a wide reply.
+
鐃緒申��申鐃緒申If VERY-WIDE, make a very wide reply."
+
鐃緒申��申鐃緒申  (interactive
+
鐃緒申��申鐃緒申   (list (and current-prefix-arg
+
鐃緒申��申鐃緒申	      (gnus-summary-work-articles 1))))
+
鐃緒申��申鐃緒申  (let ((gnus-msg-force-broken-reply-to t))
+
鐃緒申��申鐃緒申    (gnus-summary-reply yank wide very-wide)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-summary-reply-broken-reply-to-with-original (n &optional wide)
+
鐃緒申��申鐃緒申  "Like `gnus-summary-reply-with-original' except removing reply-to field.
+
鐃緒申��申鐃緒申The original article will be yanked."
+
鐃緒申��申鐃緒申  (interactive "P")
+
鐃緒申��申鐃緒申  (gnus-summary-reply-broken-reply-to (gnus-summary-work-articles n) wide))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-summary-wide-reply (&optional yank)
+
鐃緒申��申鐃緒申  "Start composing a wide reply mail to the current message.
+
鐃緒申��申鐃緒申If prefix argument YANK is non-nil, the original article is yanked
+
鐃緒申��申鐃緒申automatically."
+
鐃緒申��申鐃緒申  (interactive
+
鐃緒申��申鐃緒申   (list (and current-prefix-arg
+
鐃緒申��申鐃緒申	      (gnus-summary-work-articles 1))))
+
鐃緒申��申鐃緒申  (gnus-summary-reply yank t))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-summary-wide-reply-with-original (n)
+
鐃緒申��申鐃緒申  "Start composing a wide reply mail to the current message.
+
鐃緒申��申鐃緒申The original article will be yanked.
+
鐃緒申��申鐃緒申Uses the process/prefix convention."
+
鐃緒申��申鐃緒申  (interactive "P")
+
鐃緒申��申鐃緒申  (gnus-summary-reply-with-original n t))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-summary-very-wide-reply (&optional yank)
+
鐃緒申��申鐃緒申  "Start composing a very wide reply mail to the current message.
+
鐃緒申��申鐃緒申If prefix argument YANK is non-nil, the original article is yanked
+
鐃緒申��申鐃緒申automatically."
+
鐃緒申��申鐃緒申  (interactive
+
鐃緒申��申鐃緒申   (list (and current-prefix-arg
+
鐃緒申��申鐃緒申	      (gnus-summary-work-articles 1))))
+
鐃緒申��申鐃緒申  (gnus-summary-reply yank t (gnus-summary-work-articles yank)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-summary-very-wide-reply-with-original (n)
+
鐃緒申��申鐃緒申  "Start composing a very wide reply mail to the current message.
+
鐃緒申��申鐃緒申The original article will be yanked."
+
鐃緒申��申鐃緒申  (interactive "P")
+
鐃緒申��申鐃緒申  (gnus-summary-reply
+
鐃緒申��申鐃緒申   (gnus-summary-work-articles n) t (gnus-summary-work-articles n)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-summary-mail-forward (&optional arg post)
+
鐃緒申��申鐃緒申  "Forward the current message(s) to another user.
+
鐃緒申��申鐃緒申If process marks exist, forward all marked messages;
+
鐃緒申��申鐃緒申if ARG is nil, see `message-forward-as-mime' and `message-forward-show-mml';
+
鐃緒申��申鐃緒申if ARG is 1, decode the message and forward directly inline;
+
鐃緒申��申鐃緒申if ARG is 2, forward message as an rfc822 MIME section;
+
鐃緒申��申鐃緒申if ARG is 3, decode message and forward as an rfc822 MIME section;
+
鐃緒申��申鐃緒申if ARG is 4, forward message directly inline;
+
鐃緒申��申鐃緒申otherwise, use flipped `message-forward-as-mime'.
+
鐃緒申��申鐃緒申If POST, post instead of mail.
+
鐃緒申��申鐃緒申For the `inline' alternatives, also see the variable
+
鐃緒申��申鐃緒申`message-forward-ignored-headers'."
+
鐃緒申��申鐃緒申  (interactive "P")
+
鐃緒申��申鐃緒申  (if (cdr (gnus-summary-work-articles nil))
+
鐃緒申��申鐃緒申      ;; Process marks are given.
+
鐃緒申��申鐃緒申      (gnus-uu-digest-mail-forward arg post)
+
鐃緒申��申鐃緒申    ;; No process marks.
+
鐃緒申��申鐃緒申    (let ((message-forward-as-mime message-forward-as-mime)
+
鐃緒申��申鐃緒申	  (message-forward-show-mml message-forward-show-mml))
+
鐃緒申��申鐃緒申      (cond
+
鐃緒申��申鐃緒申       ((null arg))
+
鐃緒申��申鐃緒申       ((eq arg 1)
+
鐃緒申��申鐃緒申	(setq message-forward-as-mime nil
+
鐃緒申��申鐃緒申	      message-forward-show-mml t))
+
鐃緒申��申鐃緒申       ((eq arg 2)
+
鐃緒申��申鐃緒申	(setq message-forward-as-mime t
+
鐃緒申��申鐃緒申	      message-forward-show-mml nil))
+
鐃緒申��申鐃緒申       ((eq arg 3)
+
鐃緒申��申鐃緒申	(setq message-forward-as-mime t
+
鐃緒申��申鐃緒申	      message-forward-show-mml t))
+
鐃緒申��申鐃緒申       ((eq arg 4)
+
鐃緒申��申鐃緒申	(setq message-forward-as-mime nil
+
鐃緒申��申鐃緒申	      message-forward-show-mml nil))
+
鐃緒申��申鐃緒申       (t
+
鐃緒申��申鐃緒申	(setq message-forward-as-mime (not message-forward-as-mime))))
+
鐃緒申��申鐃緒申      (let* ((gnus-article-reply (gnus-summary-article-number))
+
鐃緒申��申鐃緒申	     (gnus-article-yanked-articles (list gnus-article-reply)))
+
鐃緒申��申鐃緒申	(gnus-setup-message 'forward
+
鐃緒申��申鐃緒申	  (gnus-summary-select-article)
+
鐃緒申��申鐃緒申	  (let ((mail-parse-charset
+
鐃緒申��申鐃緒申		 (or (and (gnus-buffer-live-p gnus-article-buffer)
+
鐃緒申��申鐃緒申			  (with-current-buffer gnus-article-buffer
+
鐃緒申��申鐃緒申			    gnus-article-charset))
+
鐃緒申��申鐃緒申		     gnus-newsgroup-charset))
+
鐃緒申��申鐃緒申		(mail-parse-ignored-charsets
+
鐃緒申��申鐃緒申		 gnus-newsgroup-ignored-charsets))
+
鐃緒申��申鐃緒申	    (set-buffer gnus-original-article-buffer)
+
鐃緒申��申鐃緒申	    (message-forward post)))))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-summary-resend-message (address n)
+
鐃緒申��申鐃緒申  "Resend the current article to ADDRESS."
+
鐃緒申��申鐃緒申  (interactive
+
鐃緒申��申鐃緒申   (list (message-read-from-minibuffer
+
鐃緒申��申鐃緒申	  "Resend message(s) to: "
+
鐃緒申��申鐃緒申	  (when (and gnus-summary-resend-default-address
+
鐃緒申��申鐃緒申		     (gnus-buffer-live-p gnus-original-article-buffer))
+
鐃緒申��申鐃緒申	    ;; If some other article is currently selected, the
+
鐃緒申��申鐃緒申	    ;; initial-contents is wrong. Whatever, it is just the
+
鐃緒申��申鐃緒申	    ;; initial-contents.
+
鐃緒申��申鐃緒申	    (with-current-buffer gnus-original-article-buffer
+
鐃緒申��申鐃緒申	      (nnmail-fetch-field "to"))))
+
鐃緒申��申鐃緒申	 current-prefix-arg))
+
鐃緒申��申鐃緒申  (let ((articles (gnus-summary-work-articles n))
+
鐃緒申��申鐃緒申	article)
+
鐃緒申��申鐃緒申    (while (setq article (pop articles))
+
鐃緒申��申鐃緒申      (gnus-summary-select-article nil nil nil article)
+
鐃緒申��申鐃緒申      (save-excursion
+
鐃緒申��申鐃緒申	(set-buffer gnus-original-article-buffer)
+
鐃緒申��申鐃緒申	(message-resend address))
+
鐃緒申��申鐃緒申      (gnus-summary-mark-article-as-forwarded article))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; From: Matthieu Moy <[e-mail]>
+
鐃緒申��申鐃緒申(defun gnus-summary-resend-message-edit ()
+
鐃緒申��申鐃緒申  "Resend an article that has already been sent.
+
鐃緒申��申鐃緒申A new buffer will be created to allow the user to modify body and
+
鐃緒申��申鐃緒申contents of the message, and then, everything will happen as when
+
鐃緒申��申鐃緒申composing a new message."
+
鐃緒申��申鐃緒申  (interactive)
+
鐃緒申��申鐃緒申  (let ((article (gnus-summary-article-number)))
+
鐃緒申��申鐃緒申    (gnus-setup-message 'reply-yank
+
鐃緒申��申鐃緒申      (gnus-summary-select-article t)
+
鐃緒申��申鐃緒申      (set-buffer gnus-original-article-buffer)
+
鐃緒申��申鐃緒申      (let ((cur (current-buffer))
+
鐃緒申��申鐃緒申	    (to (message-fetch-field "to")))
+
鐃緒申��申鐃緒申	;; Get a normal message buffer.
+
鐃緒申��申鐃緒申	(message-pop-to-buffer (message-buffer-name "Resend" to))
+
鐃緒申��申鐃緒申	(insert-buffer-substring cur)
+
鐃緒申��申鐃緒申	(mime-to-mml)
+
鐃緒申��申鐃緒申	(message-narrow-to-head-1)
+
鐃緒申��申鐃緒申	;; Gnus will generate a new one when sending.
+
鐃緒申��申鐃緒申	(message-remove-header "Message-ID")
+
鐃緒申��申鐃緒申	(message-remove-header message-ignored-resent-headers t)
+
鐃緒申��申鐃緒申	;; Remove unwanted headers.
+
鐃緒申��申鐃緒申	(goto-char (point-max))
+
鐃緒申��申鐃緒申	(insert mail-header-separator)
+
鐃緒申��申鐃緒申	(goto-char (point-min))
+
鐃緒申��申鐃緒申	(when (re-search-forward "^To:\\|^Newsgroups:" nil 'move)
+
鐃緒申��申鐃緒申	  (forward-char 1))
+
鐃緒申��申鐃緒申	(widen)))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-summary-post-forward (&optional arg)
+
鐃緒申��申鐃緒申  "Forward the current article to a newsgroup.
+
鐃緒申��申鐃緒申See `gnus-summary-mail-forward' for ARG."
+
鐃緒申��申鐃緒申  (interactive "P")
+
鐃緒申��申鐃緒申  (gnus-summary-mail-forward arg t))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defvar gnus-nastygram-message
+
鐃緒申��申鐃緒申  "The following article was inappropriately posted to %s.\n\n"
+
鐃緒申��申鐃緒申  "Format string to insert in nastygrams.
+
鐃緒申��申鐃緒申The current group name will be inserted at \"%s\".")
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-summary-mail-nastygram (n)
+
鐃緒申��申鐃緒申  "Send a nastygram to the author of the current article."
+
鐃緒申��申鐃緒申  (interactive "P")
+
鐃緒申��申鐃緒申  (when (or gnus-expert-user
+
鐃緒申��申鐃緒申	    (gnus-y-or-n-p
+
鐃緒申��申鐃緒申	     "Really send a nastygram to the author of the current article? "))
+
鐃緒申��申鐃緒申    (let ((group gnus-newsgroup-name))
+
鐃緒申��申鐃緒申      (gnus-summary-reply-with-original n)
+
鐃緒申��申鐃緒申      (set-buffer gnus-message-buffer)
+
鐃緒申��申鐃緒申      (message-goto-body)
+
鐃緒申��申鐃緒申      (insert (format gnus-nastygram-message group))
+
鐃緒申��申鐃緒申      (message-send-and-exit))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-summary-mail-crosspost-complaint (n)
+
鐃緒申��申鐃緒申  "Send a complaint about crossposting to the current article(s)."
+
鐃緒申��申鐃緒申  (interactive "P")
+
鐃緒申��申鐃緒申  (let ((articles (gnus-summary-work-articles n))
+
鐃緒申��申鐃緒申	article)
+
鐃緒申��申鐃緒申    (while (setq article (pop articles))
+
鐃緒申��申鐃緒申      (set-buffer gnus-summary-buffer)
+
鐃緒申��申鐃緒申      (gnus-summary-goto-subject article)
+
鐃緒申��申鐃緒申      (let ((group (gnus-group-real-name gnus-newsgroup-name))
+
鐃緒申��申鐃緒申	    newsgroups followup-to)
+
鐃緒申��申鐃緒申	(gnus-summary-select-article)
+
鐃緒申��申鐃緒申	(set-buffer gnus-original-article-buffer)
+
鐃緒申��申鐃緒申	(if (and (<= (length (message-tokenize-header
+
鐃緒申��申鐃緒申			      (setq newsgroups
+
鐃緒申��申鐃緒申				    (mail-fetch-field "newsgroups"))
+
鐃緒申��申鐃緒申			      ", "))
+
鐃緒申��申鐃緒申		     1)
+
鐃緒申��申鐃緒申		 (or (not (setq followup-to (mail-fetch-field "followup-to")))
+
鐃緒申��申鐃緒申		     (not (member group (message-tokenize-header
+
鐃緒申��申鐃緒申					 followup-to ", ")))))
+
鐃緒申��申鐃緒申	    (if followup-to
+
鐃緒申��申鐃緒申		(gnus-message 1 "Followup-to restricted")
+
鐃緒申��申鐃緒申	      (gnus-message 1 "Not a crossposted article"))
+
鐃緒申��申鐃緒申	  (set-buffer gnus-summary-buffer)
+
鐃緒申��申鐃緒申	  (gnus-summary-reply-with-original 1)
+
鐃緒申��申鐃緒申	  (set-buffer gnus-message-buffer)
+
鐃緒申��申鐃緒申	  (message-goto-body)
+
鐃緒申��申鐃緒申	  (insert (format gnus-crosspost-complaint newsgroups group))
+
鐃緒申��申鐃緒申	  (message-goto-subject)
+
鐃緒申��申鐃緒申	  (re-search-forward " *$")
+
鐃緒申��申鐃緒申	  (replace-match " (crosspost notification)" t t)
+
鐃緒申��申鐃緒申	  (gnus-deactivate-mark)
+
鐃緒申��申鐃緒申	  (when (gnus-y-or-n-p "Send this complaint? ")
+
鐃緒申��申鐃緒申	    (message-send-and-exit)))))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-mail-parse-comma-list ()
+
鐃緒申��申鐃緒申  (let (accumulated
+
鐃緒申��申鐃緒申	beg)
+
鐃緒申��申鐃緒申    (skip-chars-forward " ")
+
鐃緒申��申鐃緒申    (while (not (eobp))
+
鐃緒申��申鐃緒申      (setq beg (point))
+
鐃緒申��申鐃緒申      (skip-chars-forward "^,")
+
鐃緒申��申鐃緒申      (while (zerop
+
鐃緒申��申鐃緒申	      (save-excursion
+
鐃緒申��申鐃緒申		(save-restriction
+
鐃緒申��申鐃緒申		  (let ((i 0))
+
鐃緒申��申鐃緒申		    (narrow-to-region beg (point))
+
鐃緒申��申鐃緒申		    (goto-char beg)
+
鐃緒申��申鐃緒申		    (logand (progn
+
鐃緒申��申鐃緒申			      (while (search-forward "\"" nil t)
+
鐃緒申��申鐃緒申				(incf i))
+
鐃緒申��申鐃緒申			      (if (zerop i) 2 i))
+
鐃緒申��申鐃緒申			    2)))))
+
鐃緒申��申鐃緒申	(skip-chars-forward ",")
+
鐃緒申��申鐃緒申	(skip-chars-forward "^,"))
+
鐃緒申��申鐃緒申      (skip-chars-backward " ")
+
鐃緒申��申鐃緒申      (push (buffer-substring beg (point))
+
鐃緒申��申鐃緒申	    accumulated)
+
鐃緒申��申鐃緒申      (skip-chars-forward "^,")
+
鐃緒申��申鐃緒申      (skip-chars-forward ", "))
+
鐃緒申��申鐃緒申    accumulated))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-inews-add-to-address (group)
+
鐃緒申��申鐃緒申  (let ((to-address (mail-fetch-field "to")))
+
鐃緒申��申鐃緒申    (when (and to-address
+
鐃緒申��申鐃緒申	       (gnus-alive-p))
+
鐃緒申��申鐃緒申      ;; This mail group doesn't have a `to-list', so we add one
+
鐃緒申��申鐃緒申      ;; here.  Magic!
+
鐃緒申��申鐃緒申      (when (gnus-y-or-n-p
+
鐃緒申��申鐃緒申	     (format "Do you want to add this as `to-list': %s? " to-address))
+
鐃緒申��申鐃緒申	(gnus-group-add-parameter group (cons 'to-list to-address))))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-put-message ()
+
鐃緒申��申鐃緒申  "Put the current message in some group and return to Gnus."
+
鐃緒申��申鐃緒申  (interactive)
+
鐃緒申��申鐃緒申  (let ((reply gnus-article-reply)
+
鐃緒申��申鐃緒申	(winconf gnus-prev-winconf)
+
鐃緒申��申鐃緒申	(group gnus-newsgroup-name))
+
鐃緒申��申鐃緒申    (unless (and group
+
鐃緒申��申鐃緒申		 (not (gnus-group-read-only-p group)))
+
鐃緒申��申鐃緒申      (setq group (read-string "Put in group: " nil (gnus-writable-groups))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    (when (gnus-gethash group gnus-newsrc-hashtb)
+
鐃緒申��申鐃緒申      (error "No such group: %s" group))
+
鐃緒申��申鐃緒申    (save-excursion
+
鐃緒申��申鐃緒申      (save-restriction
+
鐃緒申��申鐃緒申	(widen)
+
鐃緒申��申鐃緒申	(message-narrow-to-headers)
+
鐃緒申��申鐃緒申	(let ((gnus-deletable-headers nil))
+
鐃緒申��申鐃緒申	  (message-generate-headers
+
鐃緒申��申鐃緒申	   (if (message-news-p)
+
鐃緒申��申鐃緒申	       message-required-news-headers
+
鐃緒申��申鐃緒申	     message-required-mail-headers)))
+
鐃緒申��申鐃緒申	(goto-char (point-max))
+
鐃緒申��申鐃緒申	(if (string-match " " group)
+
鐃緒申��申鐃緒申	    (insert "Gcc: \"" group "\"\n")
+
鐃緒申��申鐃緒申	  (insert "Gcc: " group "\n"))
+
鐃緒申��申鐃緒申	(widen)))
+
鐃緒申��申鐃緒申    (gnus-inews-do-gcc)
+
鐃緒申��申鐃緒申    (when (and (get-buffer gnus-group-buffer)
+
鐃緒申��申鐃緒申	       (gnus-buffer-exists-p (car-safe reply))
+
鐃緒申��申鐃緒申	       (cdr reply))
+
鐃緒申��申鐃緒申      (set-buffer (car reply))
+
鐃緒申��申鐃緒申      (gnus-summary-mark-article-as-replied (cdr reply)))
+
鐃緒申��申鐃緒申    (when winconf
+
鐃緒申��申鐃緒申      (set-window-configuration winconf))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-article-mail (yank)
+
鐃緒申��申鐃緒申  "Send a reply to the address near point.
+
鐃緒申��申鐃緒申If YANK is non-nil, include the original article."
+
鐃緒申��申鐃緒申  (interactive "P")
+
鐃緒申��申鐃緒申  (let ((address
+
鐃緒申��申鐃緒申	 (buffer-substring
+
鐃緒申��申鐃緒申	  (save-excursion (re-search-backward "[ \t\n]" nil t) (1+ (point)))
+
鐃緒申��申鐃緒申	  (save-excursion (re-search-forward "[ \t\n]" nil t) (1- (point))))))
+
鐃緒申��申鐃緒申    (when address
+
鐃緒申��申鐃緒申      (gnus-msg-mail address)
+
鐃緒申��申鐃緒申      (when yank
+
鐃緒申��申鐃緒申	(gnus-inews-yank-articles (list (cdr gnus-article-current)))))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defvar nntp-server-type)
+
鐃緒申��申鐃緒申(defun gnus-bug ()
+
鐃緒申��申鐃緒申  "Send a bug report to the Gnus maintainers."
+
鐃緒申��申鐃緒申  (interactive)
+
鐃緒申��申鐃緒申  (unless (gnus-alive-p)
+
鐃緒申��申鐃緒申    (error "Gnus has been shut down"))
+
鐃緒申��申鐃緒申  (gnus-setup-message (if (message-mail-user-agent) 'message 'bug)
+
鐃緒申��申鐃緒申    (unless (message-mail-user-agent)
+
鐃緒申��申鐃緒申      (delete-other-windows)
+
鐃緒申��申鐃緒申      (when gnus-bug-create-help-buffer
+
鐃緒申��申鐃緒申	(switch-to-buffer "*Gnus Help Bug*")
+
鐃緒申��申鐃緒申	(erase-buffer)
+
鐃緒申��申鐃緒申	(insert gnus-bug-message)
+
鐃緒申��申鐃緒申	(goto-char (point-min)))
+
鐃緒申��申鐃緒申      (message-pop-to-buffer "*Gnus Bug*"))
+
鐃緒申��申鐃緒申    (let ((message-this-is-mail t))
+
鐃緒申��申鐃緒申      (message-setup `((To . ,gnus-maintainer) (Subject . ""))))
+
鐃緒申��申鐃緒申    (when gnus-bug-create-help-buffer
+
鐃緒申��申鐃緒申      (push `(gnus-bug-kill-buffer) message-send-actions))
+
鐃緒申��申鐃緒申    (goto-char (point-min))
+
鐃緒申��申鐃緒申    (re-search-forward (concat "^" (regexp-quote mail-header-separator) "$"))
+
鐃緒申��申鐃緒申    (forward-line 1)
+
鐃緒申��申鐃緒申    (insert (gnus-version) "\n"
+
鐃緒申��申鐃緒申	    (emacs-version) "\n")
+
鐃緒申��申鐃緒申    (when (and (boundp 'nntp-server-type)
+
鐃緒申��申鐃緒申	       (stringp nntp-server-type))
+
鐃緒申��申鐃緒申      (insert nntp-server-type))
+
鐃緒申��申鐃緒申    (insert "\n\n\n\n\n")
+
鐃緒申��申鐃緒申    (let (text)
+
鐃緒申��申鐃緒申      (save-excursion
+
鐃緒申��申鐃緒申	(set-buffer (gnus-get-buffer-create " *gnus environment info*"))
+
鐃緒申��申鐃緒申	(erase-buffer)
+
鐃緒申��申鐃緒申	(gnus-debug)
+
鐃緒申��申鐃緒申	(setq text (buffer-string)))
+
鐃緒申��申鐃緒申      (insert "<#part type=application/emacs-lisp disposition=inline description=\"User settings\">\n" text "\n<#/part>"))
+
鐃緒申��申鐃緒申    (goto-char (point-min))
+
鐃緒申��申鐃緒申    (search-forward "Subject: " nil t)
+
鐃緒申��申鐃緒申    (message "")))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-bug-kill-buffer ()
+
鐃緒申��申鐃緒申  (when (get-buffer "*Gnus Help Bug*")
+
鐃緒申��申鐃緒申    (kill-buffer "*Gnus Help Bug*")))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-summary-yank-message (buffer n)
+
鐃緒申��申鐃緒申  "Yank the current article into a composed message."
+
鐃緒申��申鐃緒申  (interactive
+
鐃緒申��申鐃緒申   (list (completing-read "Buffer: " (mapcar 'list (message-buffers)) nil t)
+
鐃緒申��申鐃緒申	 current-prefix-arg))
+
鐃緒申��申鐃緒申  (gnus-summary-iterate n
+
鐃緒申��申鐃緒申    (let ((gnus-inhibit-treatment t))
+
鐃緒申��申鐃緒申      (gnus-summary-select-article))
+
鐃緒申��申鐃緒申    (save-excursion
+
鐃緒申��申鐃緒申      (set-buffer buffer)
+
鐃緒申��申鐃緒申      (message-yank-buffer gnus-article-buffer))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-debug ()
+
鐃緒申��申鐃緒申  "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."
+
鐃緒申��申鐃緒申  (interactive)
+
鐃緒申��申鐃緒申  (let ((files gnus-debug-files)
+
鐃緒申��申鐃緒申	(point (point))
+
鐃緒申��申鐃緒申	file expr olist sym)
+
鐃緒申��申鐃緒申    (gnus-message 4 "Please wait while we snoop your variables...")
+
鐃緒申��申鐃緒申    (sit-for 0)
+
鐃緒申��申鐃緒申    ;; Go through all the files looking for non-default values for variables.
+
鐃緒申��申鐃緒申    (save-excursion
+
鐃緒申��申鐃緒申      (set-buffer (gnus-get-buffer-create " *gnus bug info*"))
+
鐃緒申��申鐃緒申      (while files
+
鐃緒申��申鐃緒申	(erase-buffer)
+
鐃緒申��申鐃緒申	(when (and (setq file (locate-library (pop files)))
+
鐃緒申��申鐃緒申		   (file-exists-p file))
+
鐃緒申��申鐃緒申	  (insert-file-contents file)
+
鐃緒申��申鐃緒申	  (goto-char (point-min))
+
鐃緒申��申鐃緒申	  (if (not (re-search-forward "^;;* *Internal variables" nil t))
+
鐃緒申��申鐃緒申	      (gnus-message 4 "Malformed sources in file %s" file)
+
鐃緒申��申鐃緒申	    (narrow-to-region (point-min) (point))
+
鐃緒申��申鐃緒申	    (goto-char (point-min))
+
鐃緒申��申鐃緒申	    (while (setq expr (ignore-errors (read (current-buffer))))
+
鐃緒申��申鐃緒申	      (ignore-errors
+
鐃緒申��申鐃緒申		(and (or (eq (car expr) 'defvar)
+
鐃緒申��申鐃緒申			 (eq (car expr) 'defcustom))
+
鐃緒申��申鐃緒申		     (stringp (nth 3 expr))
+
鐃緒申��申鐃緒申		     (not (memq (nth 1 expr) gnus-debug-exclude-variables))
+
鐃緒申��申鐃緒申		     (or (not (boundp (nth 1 expr)))
+
鐃緒申��申鐃緒申			 (not (equal (eval (nth 2 expr))
+
鐃緒申��申鐃緒申				     (symbol-value (nth 1 expr)))))
+
鐃緒申��申鐃緒申		     (push (nth 1 expr) olist)))))))
+
鐃緒申��申鐃緒申      (kill-buffer (current-buffer)))
+
鐃緒申��申鐃緒申    (when (setq olist (nreverse olist))
+
鐃緒申��申鐃緒申      (insert "------------------ Environment follows ------------------\n\n"))
+
鐃緒申��申鐃緒申    (while olist
+
鐃緒申��申鐃緒申      (if (boundp (car olist))
+
鐃緒申��申鐃緒申	  (ignore-errors
+
鐃緒申��申鐃緒申	   (gnus-pp
+
鐃緒申��申鐃緒申	    `(setq ,(car olist)
+
鐃緒申��申鐃緒申		   ,(if (or (consp (setq sym (symbol-value (car olist))))
+
鐃緒申��申鐃緒申			    (and (symbolp sym)
+
鐃緒申��申鐃緒申				 (not (or (eq sym nil)
+
鐃緒申��申鐃緒申					  (eq sym t)))))
+
鐃緒申��申鐃緒申			(list 'quote (symbol-value (car olist)))
+
鐃緒申��申鐃緒申		      (symbol-value (car olist))))))
+
鐃緒申��申鐃緒申	(insert ";; (makeunbound '" (symbol-name (car olist)) ")\n"))
+
鐃緒申��申鐃緒申      (setq olist (cdr olist)))
+
鐃緒申��申鐃緒申    (insert "\n\n")
+
鐃緒申��申鐃緒申    ;; Remove any control chars - they seem to cause trouble for some
+
鐃緒申��申鐃緒申    ;; mailers.  (Byte-compiled output from the stuff above.)
+
鐃緒申��申鐃緒申    (goto-char point)
+
鐃緒申��申鐃緒申    (while (re-search-forward (mm-string-as-multibyte
+
鐃緒申��申鐃緒申			       "[\000-\010\013-\037\200-\237]") nil t)
+
鐃緒申��申鐃緒申      (replace-match (format "\\%03o" (string-to-char (match-string 0)))
+
鐃緒申��申鐃緒申		     t t))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;; Treatment of rejected articles.
+
鐃緒申��申鐃緒申;;; Bounced mail.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-summary-resend-bounced-mail (&optional fetch)
+
鐃緒申��申鐃緒申  "Re-mail the current message.
+
鐃緒申��申鐃緒申This only makes sense if the current message is a bounce message that
+
鐃緒申��申鐃緒申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."
+
鐃緒申��申鐃緒申  (interactive "P")
+
鐃緒申��申鐃緒申  (gnus-summary-select-article t)
+
鐃緒申��申鐃緒申  (set-buffer gnus-original-article-buffer)
+
鐃緒申��申鐃緒申  (gnus-setup-message 'compose-bounce
+
鐃緒申��申鐃緒申    (let* ((references (mail-fetch-field "references"))
+
鐃緒申��申鐃緒申	   (parent (and references (gnus-parent-id references))))
+
鐃緒申��申鐃緒申      (message-bounce)
+
鐃緒申��申鐃緒申      ;; If there are references, we fetch the article we answered to.
+
鐃緒申��申鐃緒申      (and fetch parent
+
鐃緒申��申鐃緒申	   (gnus-summary-refer-article parent)
+
鐃緒申��申鐃緒申	   (gnus-summary-show-all-headers)))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;; Gcc handling.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-inews-group-method (group)
+
鐃緒申��申鐃緒申  (cond
+
鐃緒申��申鐃緒申   ;; If the group doesn't exist, we assume
+
鐃緒申��申鐃緒申   ;; it's an archive group...
+
鐃緒申��申鐃緒申   ((and (null (gnus-get-info group))
+
鐃緒申��申鐃緒申	 (eq (car (gnus-server-to-method gnus-message-archive-method))
+
鐃緒申��申鐃緒申	     (car (gnus-server-to-method (gnus-group-method group)))))
+
鐃緒申��申鐃緒申    gnus-message-archive-method)
+
鐃緒申��申鐃緒申   ;; Use the method.
+
鐃緒申��申鐃緒申   ((gnus-info-method (gnus-get-info group))
+
鐃緒申��申鐃緒申    (gnus-info-method (gnus-get-info group)))
+
鐃緒申��申鐃緒申   ;; Find the method.
+
鐃緒申��申鐃緒申   (t (gnus-server-to-method (gnus-group-method group)))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; Do Gcc handling, which copied the message over to some group.
+
鐃緒申��申鐃緒申(defun gnus-inews-do-gcc (&optional gcc)
+
鐃緒申��申鐃緒申  (interactive)
+
鐃緒申��申鐃緒申  (save-excursion
+
鐃緒申��申鐃緒申    (save-restriction
+
鐃緒申��申鐃緒申      (message-narrow-to-headers)
+
鐃緒申��申鐃緒申      (let ((gcc (or gcc (mail-fetch-field "gcc" nil t)))
+
鐃緒申��申鐃緒申	    (cur (current-buffer))
+
鐃緒申��申鐃緒申	    groups group method group-art
+
鐃緒申��申鐃緒申	    mml-externalize-attachments)
+
鐃緒申��申鐃緒申	(when gcc
+
鐃緒申��申鐃緒申	  (message-remove-header "gcc")
+
鐃緒申��申鐃緒申	  (widen)
+
鐃緒申��申鐃緒申	  (setq groups (message-unquote-tokens
+
鐃緒申��申鐃緒申			(message-tokenize-header gcc " ,")))
+
鐃緒申��申鐃緒申	  ;; Copy the article over to some group(s).
+
鐃緒申��申鐃緒申	  (while (setq group (pop groups))
+
鐃緒申��申鐃緒申	    (unless (gnus-check-server
+
鐃緒申��申鐃緒申		     (setq method (gnus-inews-group-method group)))
+
鐃緒申��申鐃緒申	      (error "Can't open server %s" (if (stringp method) method
+
鐃緒申��申鐃緒申					      (car method))))
+
鐃緒申��申鐃緒申	    (unless (gnus-request-group group nil method)
+
鐃緒申��申鐃緒申	      (gnus-request-create-group group method))
+
鐃緒申��申鐃緒申	    (setq mml-externalize-attachments
+
鐃緒申��申鐃緒申		  (if (stringp gnus-gcc-externalize-attachments)
+
鐃緒申��申鐃緒申		      (string-match gnus-gcc-externalize-attachments group)
+
鐃緒申��申鐃緒申		    gnus-gcc-externalize-attachments))
+
鐃緒申��申鐃緒申	    (save-excursion
+
鐃緒申��申鐃緒申	      (nnheader-set-temp-buffer " *acc*")
+
鐃緒申��申鐃緒申	      (insert-buffer-substring cur)
+
鐃緒申��申鐃緒申	      (message-encode-message-body)
+
鐃緒申��申鐃緒申	      (save-restriction
+
鐃緒申��申鐃緒申		(message-narrow-to-headers)
+
鐃緒申��申鐃緒申		(let* ((mail-parse-charset message-default-charset)
+
鐃緒申��申鐃緒申		       (newsgroups-field (save-restriction
+
鐃緒申��申鐃緒申					   (message-narrow-to-headers-or-head)
+
鐃緒申��申鐃緒申					   (message-fetch-field "Newsgroups")))
+
鐃緒申��申鐃緒申		       (followup-field (save-restriction
+
鐃緒申��申鐃緒申					 (message-narrow-to-headers-or-head)
+
鐃緒申��申鐃緒申					 (message-fetch-field "Followup-To")))
+
鐃緒申��申鐃緒申		       ;; BUG: We really need to get the charset for
+
鐃緒申��申鐃緒申		       ;; each name in the Newsgroups and Followup-To
+
鐃緒申��申鐃緒申		       ;; lines to allow crossposting between group
+
鐃緒申��申鐃緒申		       ;; namess with incompatible character sets.
+
鐃緒申��申鐃緒申		       ;; -- Per Abrahamsen <[e-mail]> 2001-10-08.
+
鐃緒申��申鐃緒申		       (group-field-charset
+
鐃緒申��申鐃緒申			(gnus-group-name-charset
+
鐃緒申��申鐃緒申			 method (or newsgroups-field "")))
+
鐃緒申��申鐃緒申		       (followup-field-charset
+
鐃緒申��申鐃緒申			(gnus-group-name-charset
+
鐃緒申��申鐃緒申			 method (or followup-field "")))
+
鐃緒申��申鐃緒申		       (rfc2047-header-encoding-alist
+
鐃緒申��申鐃緒申			(append
+
鐃緒申��申鐃緒申			 (when group-field-charset
+
鐃緒申��申鐃緒申			   (list (cons "Newsgroups" group-field-charset)))
+
鐃緒申��申鐃緒申			 (when followup-field-charset
+
鐃緒申��申鐃緒申			   (list (cons "Followup-To" followup-field-charset)))
+
鐃緒申��申鐃緒申			 rfc2047-header-encoding-alist)))
+
鐃緒申��申鐃緒申		  (mail-encode-encoded-word-buffer)))
+
鐃緒申��申鐃緒申	      (goto-char (point-min))
+
鐃緒申��申鐃緒申	      (when (re-search-forward
+
鐃緒申��申鐃緒申		     (concat "^" (regexp-quote mail-header-separator) "$")
+
鐃緒申��申鐃緒申		     nil t)
+
鐃緒申��申鐃緒申		(replace-match "" t t ))
+
鐃緒申��申鐃緒申	      (unless (setq group-art
+
鐃緒申��申鐃緒申			    (gnus-request-accept-article group method t t))
+
鐃緒申��申鐃緒申		(gnus-message 1 "Couldn't store article in group %s: %s"
+
鐃緒申��申鐃緒申			      group (gnus-status-message method))
+
鐃緒申��申鐃緒申		(sit-for 2))
+
鐃緒申��申鐃緒申	      (when (and group-art
+
鐃緒申��申鐃緒申			 ;; FIXME: Should gcc-mark-as-read work when
+
鐃緒申��申鐃緒申			 ;; Gnus is not running?
+
鐃緒申��申鐃緒申			 (gnus-alive-p)
+
鐃緒申��申鐃緒申			 (or gnus-gcc-mark-as-read
+
鐃緒申��申鐃緒申			     (and
+
鐃緒申��申鐃緒申			      (boundp 'gnus-inews-mark-gcc-as-read)
+
鐃緒申��申鐃緒申			      (symbol-value 'gnus-inews-mark-gcc-as-read))))
+
鐃緒申��申鐃緒申		(gnus-group-mark-article-read group (cdr group-art)))
+
鐃緒申��申鐃緒申	      (kill-buffer (current-buffer)))))))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-inews-insert-gcc ()
+
鐃緒申��申鐃緒申  "Insert Gcc headers based on `gnus-outgoing-message-group'."
+
鐃緒申��申鐃緒申  (save-excursion
+
鐃緒申��申鐃緒申    (save-restriction
+
鐃緒申��申鐃緒申      (message-narrow-to-headers)
+
鐃緒申��申鐃緒申      (let* ((group gnus-outgoing-message-group)
+
鐃緒申��申鐃緒申	     (gcc (cond
+
鐃緒申��申鐃緒申		   ((functionp group)
+
鐃緒申��申鐃緒申		    (funcall group))
+
鐃緒申��申鐃緒申		   ((or (stringp group) (listp group))
+
鐃緒申��申鐃緒申		    group))))
+
鐃緒申��申鐃緒申	(when gcc
+
鐃緒申��申鐃緒申	  (insert "Gcc: "
+
鐃緒申��申鐃緒申		  (if (stringp gcc)
+
鐃緒申��申鐃緒申		      (if (string-match " " gcc)
+
鐃緒申��申鐃緒申			  (concat "\"" gcc "\"")
+
鐃緒申��申鐃緒申			gcc)
+
鐃緒申��申鐃緒申		    (mapconcat (lambda (group)
+
鐃緒申��申鐃緒申				 (if (string-match " " group)
+
鐃緒申��申鐃緒申				     (concat "\"" group "\"")
+
鐃緒申��申鐃緒申				   group))
+
鐃緒申��申鐃緒申			       gcc " "))
+
鐃緒申��申鐃緒申		  "\n"))))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-inews-insert-archive-gcc (&optional group)
+
鐃緒申��申鐃緒申  "Insert the Gcc to say where the article is to be archived."
+
鐃緒申��申鐃緒申  (let* ((var gnus-message-archive-group)
+
鐃緒申��申鐃緒申	 (group (or group gnus-newsgroup-name ""))
+
鐃緒申��申鐃緒申	 (gcc-self-val
+
鐃緒申��申鐃緒申	  (and gnus-newsgroup-name
+
鐃緒申��申鐃緒申	       (not (equal gnus-newsgroup-name ""))
+
鐃緒申��申鐃緒申	       (gnus-group-find-parameter
+
鐃緒申��申鐃緒申		gnus-newsgroup-name 'gcc-self)))
+
鐃緒申��申鐃緒申	 result
+
鐃緒申��申鐃緒申	 (groups
+
鐃緒申��申鐃緒申	  (cond
+
鐃緒申��申鐃緒申	   ((null gnus-message-archive-method)
+
鐃緒申��申鐃緒申	    ;; Ignore.
+
鐃緒申��申鐃緒申	    nil)
+
鐃緒申��申鐃緒申	   ((stringp var)
+
鐃緒申��申鐃緒申	    ;; Just a single group.
+
鐃緒申��申鐃緒申	    (list var))
+
鐃緒申��申鐃緒申	   ((null var)
+
鐃緒申��申鐃緒申	    ;; We don't want this.
+
鐃緒申��申鐃緒申	    nil)
+
鐃緒申��申鐃緒申	   ((and (listp var) (stringp (car var)))
+
鐃緒申��申鐃緒申	    ;; A list of groups.
+
鐃緒申��申鐃緒申	    var)
+
鐃緒申��申鐃緒申	   ((functionp var)
+
鐃緒申��申鐃緒申	    ;; A function.
+
鐃緒申��申鐃緒申	    (funcall var group))
+
鐃緒申��申鐃緒申	   (t
+
鐃緒申��申鐃緒申	    ;; An alist of regexps/functions/forms.
+
鐃緒申��申鐃緒申	    (while (and var
+
鐃緒申��申鐃緒申			(not
+
鐃緒申��申鐃緒申			 (setq result
+
鐃緒申��申鐃緒申			       (cond
+
鐃緒申��申鐃緒申				((stringp (caar var))
+
鐃緒申��申鐃緒申				 ;; Regexp.
+
鐃緒申��申鐃緒申				 (when (string-match (caar var) group)
+
鐃緒申��申鐃緒申				   (cdar var)))
+
鐃緒申��申鐃緒申				((functionp (car var))
+
鐃緒申��申鐃緒申				 ;; Function.
+
鐃緒申��申鐃緒申				 (funcall (car var) group))
+
鐃緒申��申鐃緒申				(t
+
鐃緒申��申鐃緒申				 (eval (car var)))))))
+
鐃緒申��申鐃緒申	      (setq var (cdr var)))
+
鐃緒申��申鐃緒申	    result)))
+
鐃緒申��申鐃緒申	 name)
+
鐃緒申��申鐃緒申    (when (or groups gcc-self-val)
+
鐃緒申��申鐃緒申      (when (stringp groups)
+
鐃緒申��申鐃緒申	(setq groups (list groups)))
+
鐃緒申��申鐃緒申      (save-excursion
+
鐃緒申��申鐃緒申	(save-restriction
+
鐃緒申��申鐃緒申	  (message-narrow-to-headers)
+
鐃緒申��申鐃緒申	  (goto-char (point-max))
+
鐃緒申��申鐃緒申	  (insert "Gcc: ")
+
鐃緒申��申鐃緒申	  (if gcc-self-val
+
鐃緒申��申鐃緒申	      ;; Use the `gcc-self' param value instead.
+
鐃緒申��申鐃緒申	      (progn
+
鐃緒申��申鐃緒申		(insert
+
鐃緒申��申鐃緒申		 (if (stringp gcc-self-val)
+
鐃緒申��申鐃緒申		     (if (string-match " " gcc-self-val)
+
鐃緒申��申鐃緒申			 (concat "\"" gcc-self-val "\"")
+
鐃緒申��申鐃緒申		       gcc-self-val)
+
鐃緒申��申鐃緒申		   ;; In nndoc groups, we use the parent group name
+
鐃緒申��申鐃緒申		   ;; instead of the current group.
+
鐃緒申��申鐃緒申		   (let ((group (or (gnus-group-find-parameter
+
鐃緒申��申鐃緒申				     gnus-newsgroup-name 'parent-group)
+
鐃緒申��申鐃緒申				    group)))
+
鐃緒申��申鐃緒申		     (if (string-match " " group)
+
鐃緒申��申鐃緒申			 (concat "\"" group "\"")
+
鐃緒申��申鐃緒申		       group))))
+
鐃緒申��申鐃緒申		(if (not (eq gcc-self-val 'none))
+
鐃緒申��申鐃緒申		    (insert "\n")
+
鐃緒申��申鐃緒申		  (gnus-delete-line)))
+
鐃緒申��申鐃緒申	    ;; Use the list of groups.
+
鐃緒申��申鐃緒申	    (while (setq name (pop groups))
+
鐃緒申��申鐃緒申	      (let ((str (if (string-match ":" name)
+
鐃緒申��申鐃緒申			     name
+
鐃緒申��申鐃緒申			   (gnus-group-prefixed-name
+
鐃緒申��申鐃緒申			    name gnus-message-archive-method))))
+
鐃緒申��申鐃緒申		(insert (if (string-match " " str)
+
鐃緒申��申鐃緒申			    (concat "\"" str "\"")
+
鐃緒申��申鐃緒申			  str)))
+
鐃緒申��申鐃緒申	      (when groups
+
鐃緒申��申鐃緒申		(insert " ")))
+
鐃緒申��申鐃緒申	    (insert "\n")))))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-mailing-list-followup-to ()
+
鐃緒申��申鐃緒申  "Look at the headers in the current buffer and return a Mail-Followup-To address."
+
鐃緒申��申鐃緒申  (let ((x-been-there (gnus-fetch-original-field "x-beenthere"))
+
鐃緒申��申鐃緒申	(list-post (gnus-fetch-original-field "list-post")))
+
鐃緒申��申鐃緒申    (when (and list-post
+
鐃緒申��申鐃緒申	       (string-match "mailto:\\([^>]+\\)" list-post))
+
鐃緒申��申鐃緒申      (setq list-post (match-string 1 list-post)))
+
鐃緒申��申鐃緒申    (or list-post
+
鐃緒申��申鐃緒申	x-been-there)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;; Posting styles.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defun gnus-configure-posting-styles (&optional group-name)
+
鐃緒申��申鐃緒申  "Configure posting styles according to `gnus-posting-styles'."
+
鐃緒申��申鐃緒申  (unless gnus-inhibit-posting-styles
+
鐃緒申��申鐃緒申    (let ((group (or group-name gnus-newsgroup-name ""))
+
鐃緒申��申鐃緒申	  (styles gnus-posting-styles)
+
鐃緒申��申鐃緒申	  style match attribute value v results
+
鐃緒申��申鐃緒申	  filep name address element)
+
鐃緒申��申鐃緒申      ;; If the group has a posting-style parameter, add it at the end with a
+
鐃緒申��申鐃緒申      ;; regexp matching everything, to be sure it takes precedence over all
+
鐃緒申��申鐃緒申      ;; the others.
+
鐃緒申��申鐃緒申      (when gnus-newsgroup-name
+
鐃緒申��申鐃緒申	(let ((tmp-style (gnus-group-find-parameter group 'posting-style t)))
+
鐃緒申��申鐃緒申	  (when tmp-style
+
鐃緒申��申鐃緒申	    (setq styles (append styles (list (cons ".*" tmp-style)))))))
+
鐃緒申��申鐃緒申      ;; Go through all styles and look for matches.
+
鐃緒申��申鐃緒申      (dolist (style styles)
+
鐃緒申��申鐃緒申	(setq match (pop style))
+
鐃緒申��申鐃緒申	(goto-char (point-min))
+
鐃緒申��申鐃緒申	(when (cond
+
鐃緒申��申鐃緒申	       ((stringp match)
+
鐃緒申��申鐃緒申		;; Regexp string match on the group name.
+
鐃緒申��申鐃緒申		(string-match match group))
+
鐃緒申��申鐃緒申	       ((eq match 'header)
+
鐃緒申��申鐃緒申		;; Obsolete format of header match.
+
鐃緒申��申鐃緒申		(and (gnus-buffer-live-p gnus-article-copy)
+
鐃緒申��申鐃緒申		     (with-current-buffer gnus-article-copy
+
鐃緒申��申鐃緒申		       (save-restriction
+
鐃緒申��申鐃緒申			 (nnheader-narrow-to-headers)
+
鐃緒申��申鐃緒申			 (let ((header (message-fetch-field (pop style))))
+
鐃緒申��申鐃緒申			   (and header
+
鐃緒申��申鐃緒申				(string-match (pop style) header)))))))
+
鐃緒申��申鐃緒申	       ((or (symbolp match)
+
鐃緒申��申鐃緒申		    (functionp match))
+
鐃緒申��申鐃緒申		(cond
+
鐃緒申��申鐃緒申		 ((functionp match)
+
鐃緒申��申鐃緒申		  ;; Function to be called.
+
鐃緒申��申鐃緒申		  (funcall match))
+
鐃緒申��申鐃緒申		 ((boundp match)
+
鐃緒申��申鐃緒申		  ;; Variable to be checked.
+
鐃緒申��申鐃緒申		  (symbol-value match))))
+
鐃緒申��申鐃緒申	       ((listp match)
+
鐃緒申��申鐃緒申		(cond
+
鐃緒申��申鐃緒申		 ((eq (car match) 'header)
+
鐃緒申��申鐃緒申		  ;; New format of header match.
+
鐃緒申��申鐃緒申		  (and (gnus-buffer-live-p gnus-article-copy)
+
鐃緒申��申鐃緒申		       (with-current-buffer gnus-article-copy
+
鐃緒申��申鐃緒申			 (save-restriction
+
鐃緒申��申鐃緒申			   (nnheader-narrow-to-headers)
+
鐃緒申��申鐃緒申			   (let ((header (message-fetch-field (nth 1 match))))
+
鐃緒申��申鐃緒申			     (and header
+
鐃緒申��申鐃緒申				  (string-match (nth 2 match) header)))))))
+
鐃緒申��申鐃緒申		 (t
+
鐃緒申��申鐃緒申		  ;; This is a form to be evaled.
+
鐃緒申��申鐃緒申		  (eval match)))))
+
鐃緒申��申鐃緒申	  ;; We have a match, so we set the variables.
+
鐃緒申��申鐃緒申	  (dolist (attribute style)
+
鐃緒申��申鐃緒申	    (setq element (pop attribute)
+
鐃緒申��申鐃緒申		  filep nil)
+
鐃緒申��申鐃緒申	    (setq value
+
鐃緒申��申鐃緒申		  (cond
+
鐃緒申��申鐃緒申		   ((eq (car attribute) :file)
+
鐃緒申��申鐃緒申		    (setq filep t)
+
鐃緒申��申鐃緒申		    (cadr attribute))
+
鐃緒申��申鐃緒申		   ((eq (car attribute) :value)
+
鐃緒申��申鐃緒申		    (cadr attribute))
+
鐃緒申��申鐃緒申		   (t
+
鐃緒申��申鐃緒申		    (car attribute))))
+
鐃緒申��申鐃緒申	    ;; We get the value.
+
鐃緒申��申鐃緒申	    (setq v
+
鐃緒申��申鐃緒申		  (cond
+
鐃緒申��申鐃緒申		   ((stringp value)
+
鐃緒申��申鐃緒申		    value)
+
鐃緒申��申鐃緒申		   ((or (symbolp value)
+
鐃緒申��申鐃緒申			(functionp value))
+
鐃緒申��申鐃緒申		    (cond ((functionp value)
+
鐃緒申��申鐃緒申			   (funcall value))
+
鐃緒申��申鐃緒申			  ((boundp value)
+
鐃緒申��申鐃緒申			   (symbol-value value))))
+
鐃緒申��申鐃緒申		   ((listp value)
+
鐃緒申��申鐃緒申		    (eval value))))
+
鐃緒申��申鐃緒申	    ;; Translate obsolescent value.
+
鐃緒申��申鐃緒申	    (cond
+
鐃緒申��申鐃緒申	     ((eq element 'signature-file)
+
鐃緒申��申鐃緒申	      (setq element 'signature
+
鐃緒申��申鐃緒申		    filep t))
+
鐃緒申��申鐃緒申	     ((eq element 'x-face-file)
+
鐃緒申��申鐃緒申	      (setq element 'x-face
+
鐃緒申��申鐃緒申		    filep t)))
+
鐃緒申��申鐃緒申	    ;; Get the contents of file elems.
+
鐃緒申��申鐃緒申	    (when (and filep v)
+
鐃緒申��申鐃緒申	      (setq v (with-temp-buffer
+
鐃緒申��申鐃緒申			(insert-file-contents v)
+
鐃緒申��申鐃緒申			(buffer-substring
+
鐃緒申��申鐃緒申			 (point-min)
+
鐃緒申��申鐃緒申			 (progn
+
鐃緒申��申鐃緒申			   (goto-char (point-max))
+
鐃緒申��申鐃緒申			   (if (zerop (skip-chars-backward "\n"))
+
鐃緒申��申鐃緒申			       (point)
+
鐃緒申��申鐃緒申			     (1+ (point))))))))
+
鐃緒申��申鐃緒申	    (setq results (delq (assoc element results) results))
+
鐃緒申��申鐃緒申	    (push (cons element v) results))))
+
鐃緒申��申鐃緒申      ;; Now we have all the styles, so we insert them.
+
鐃緒申��申鐃緒申      (setq name (assq 'name results)
+
鐃緒申��申鐃緒申	    address (assq 'address results))
+
鐃緒申��申鐃緒申      (setq results (delq name (delq address results)))
+
鐃緒申��申鐃緒申      (gnus-make-local-hook 'message-setup-hook)
+
鐃緒申��申鐃緒申      (setq results (sort results (lambda (x y)
+
鐃緒申��申鐃緒申				    (string-lessp (car x) (car y)))))
+
鐃緒申��申鐃緒申      (dolist (result results)
+
鐃緒申��申鐃緒申	(add-hook 'message-setup-hook
+
鐃緒申��申鐃緒申		  (cond
+
鐃緒申��申鐃緒申		   ((eq 'eval (car result))
+
鐃緒申��申鐃緒申		    'ignore)
+
鐃緒申��申鐃緒申		   ((eq 'body (car result))
+
鐃緒申��申鐃緒申		    `(lambda ()
+
鐃緒申��申鐃緒申		       (save-excursion
+
鐃緒申��申鐃緒申			 (message-goto-body)
+
鐃緒申��申鐃緒申			 (insert ,(cdr result)))))
+
鐃緒申��申鐃緒申		   ((eq 'signature (car result))
+
鐃緒申��申鐃緒申		    (set (make-local-variable 'message-signature) nil)
+
鐃緒申��申鐃緒申		    (set (make-local-variable 'message-signature-file) nil)
+
鐃緒申��申鐃緒申		    (if (not (cdr result))
+
鐃緒申��申鐃緒申			'ignore
+
鐃緒申��申鐃緒申		      `(lambda ()
+
鐃緒申��申鐃緒申			 (save-excursion
+
鐃緒申��申鐃緒申			   (let ((message-signature ,(cdr result)))
+
鐃緒申��申鐃緒申			     (when message-signature
+
鐃緒申��申鐃緒申			       (message-insert-signature)))))))
+
鐃緒申��申鐃緒申		   (t
+
鐃緒申��申鐃緒申		    (let ((header
+
鐃緒申��申鐃緒申			   (if (symbolp (car result))
+
鐃緒申��申鐃緒申			       (capitalize (symbol-name (car result)))
+
鐃緒申��申鐃緒申			     (car result))))
+
鐃緒申��申鐃緒申		      `(lambda ()
+
鐃緒申��申鐃緒申			 (save-excursion
+
鐃緒申��申鐃緒申			   (message-remove-header ,header)
+
鐃緒申��申鐃緒申			   (let ((value ,(cdr result)))
+
鐃緒申��申鐃緒申			     (when value
+
鐃緒申��申鐃緒申			       (message-goto-eoh)
+
鐃緒申��申鐃緒申			       (insert ,header ": " value)
+
鐃緒申��申鐃緒申			       (unless (bolp)
+
鐃緒申��申鐃緒申				 (insert "\n")))))))))
+
鐃緒申��申鐃緒申		  nil 'local))
+
鐃緒申��申鐃緒申      (when (or name address)
+
鐃緒申��申鐃緒申	(add-hook 'message-setup-hook
+
鐃緒申��申鐃緒申		  `(lambda ()
+
鐃緒申��申鐃緒申		     (set (make-local-variable 'user-mail-address)
+
鐃緒申��申鐃緒申			  ,(or (cdr address) user-mail-address))
+
鐃緒申��申鐃緒申		     (let ((user-full-name ,(or (cdr name) (user-full-name)))
+
鐃緒申��申鐃緒申			   (user-mail-address
+
鐃緒申��申鐃緒申			    ,(or (cdr address) user-mail-address)))
+
鐃緒申��申鐃緒申		       (save-excursion
+
鐃緒申��申鐃緒申			 (message-remove-header "From")
+
鐃緒申��申鐃緒申			 (message-goto-eoh)
+
鐃緒申��申鐃緒申			 (insert "From: " (message-make-from) "\n"))))
+
鐃緒申��申鐃緒申		  nil 'local)))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;; Allow redefinition of functions.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(gnus-ems-redefine)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(provide 'gnus-msg)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;; arch-tag: 9f22b2f5-1c0a-49de-916e-4c88e984852b
+
鐃緒申��申鐃緒申;;; gnus-msg.el ends here