Changeset 3526 for branches/2.2/lisp/gnus/gnus-msg.el

Timestamp:

10/31/04 15:41:47 (4 years ago)

Author:

miyoshi

Message:

* fringe.c: Sync up with Emacs CVS HEAD.

* xdisp.c (handle_single_display_prop): Merge codes related with
the changes in fringe.c.

* xfaces.c: Update declarations.

* w32console.c: Partially sync up with Emacs CVS HEAD.

* mw32term.c (note_mouse_highlight): Update arguments for
window_from_coordinates().
(glyph_rect): Ditto.
(mw32_message_loop): Ditto.
Merge codes related with the changes in fringe.c.

* lisp.h: Update declarations.

* keymap.c: Update declarations.
(describe_command): Add a dummy argument.
(describe_translation): Ditto.

* keyboard.c (make_lispy_event): Update arguments for
window_from_coordinates().
(make_lispy_movement): Ditto.

* dispextern.h: Update declarations.

* eval.c: Ditto.

* alloc.c (make_string): Sync up with Emacs CVS HEAD.
(make_unibyte_string): Ditto.
(make_multibyte_string): Ditto.

* lisp/cus-load.el: Update.

* lisp/loaddefs.el: Ditto.

* lisp/calc/calc-embed.el: Sync up with Emacs CVS HEAD.

* lisp/calc/calc-graph.el: Ditto.

* lisp/calc/calc-help.el: Ditto.

* lisp/calc/calc-misc.el: Ditto.

* lisp/calc/calc-units.el: Ditto.

* lisp/calc/calc.el: Ditto.

* lisp/calendar/cal-iso.el: Ditto.

* lisp/calendar/cal-menu.el: Ditto.

* lisp/calendar/calendar.el: Ditto.

* lisp/calendar/diary-lib.el: Ditto.

* lisp/calendar/holidays.el: Ditto.

* lisp/calendar/time-date.el: Ditto.

* lisp/emacs-lisp/cl-macs.el: Ditto.

* lisp/emacs-lisp/helper.el: Ditto.

* lisp/emulation/cua-base.el: Ditto.

* lisp/emulation/cua-rect.el: Ditto.

* lisp/eshell/em-pred.el: Ditto.

* lisp/eshell/esh-ext.el: Ditto.

* lisp/gnus/ChangeLog: Ditto.

* lisp/gnus/binhex.el: Ditto.

* lisp/gnus/catchup.xpm: Ditto.

* lisp/gnus/cu-exit.xpm: Ditto.

* lisp/gnus/describe-group.xpm: Ditto.

* lisp/gnus/earcon.el: Ditto.

* lisp/gnus/exit-gnus.xpm: Ditto.

* lisp/gnus/exit-summ.xpm: Ditto.

* lisp/gnus/flow-fill.el: Ditto.

* lisp/gnus/followup.xpm: Ditto.

* lisp/gnus/fuwo.xpm: Ditto.

* lisp/gnus/get-news.xpm: Ditto.

* lisp/gnus/gnntg.xpm: Ditto.

* lisp/gnus/gnus-agent.el: Ditto.

* lisp/gnus/gnus-art.el: Ditto.

* lisp/gnus/gnus-async.el: Ditto.

* lisp/gnus/gnus-audio.el: Ditto.

* lisp/gnus/gnus-bcklg.el: Ditto.

* lisp/gnus/gnus-cache.el: Ditto.

* lisp/gnus/gnus-cite.el: Ditto.

* lisp/gnus/gnus-cus.el: Ditto.

* lisp/gnus/gnus-demon.el: Ditto.

* lisp/gnus/gnus-draft.el: Ditto.

* lisp/gnus/gnus-dup.el: Ditto.

* lisp/gnus/gnus-eform.el: Ditto.

* lisp/gnus/gnus-ems.el: Ditto.

* lisp/gnus/gnus-gl.el: Ditto.

* lisp/gnus/gnus-group.el: Ditto.

* lisp/gnus/gnus-int.el: Ditto.

* lisp/gnus/gnus-kill.el: Ditto.

* lisp/gnus/gnus-logic.el: Ditto.

* lisp/gnus/gnus-mh.el: Ditto.

* lisp/gnus/gnus-ml.el: Ditto.

* lisp/gnus/gnus-mlspl.el: Ditto.

* lisp/gnus/gnus-msg.el: Ditto.

* lisp/gnus/gnus-nocem.el: Ditto.

* lisp/gnus/gnus-range.el: Ditto.

* lisp/gnus/gnus-salt.el: Ditto.

* lisp/gnus/gnus-score.el: Ditto.

* lisp/gnus/gnus-setup.el: Ditto.

* lisp/gnus/gnus-soup.el: Ditto.

* lisp/gnus/gnus-spec.el: Ditto.

* lisp/gnus/gnus-srvr.el: Ditto.

* lisp/gnus/gnus-start.el: Ditto.

* lisp/gnus/gnus-sum.el: Ditto.

* lisp/gnus/gnus-topic.el: Ditto.

* lisp/gnus/gnus-undo.el: Ditto.

* lisp/gnus/gnus-util.el: Ditto.

* lisp/gnus/gnus-uu.el: Ditto.

* lisp/gnus/gnus-vm.el: Ditto.

* lisp/gnus/gnus-win.el: Ditto.

* lisp/gnus/gnus.el: Ditto.

* lisp/gnus/ietf-drums.el: Ditto.

* lisp/gnus/imap.el: Ditto.

* lisp/gnus/kill-group.xpm: Ditto.

* lisp/gnus/mail-parse.el: Ditto.

* lisp/gnus/mail-prsvr.el: Ditto.

* lisp/gnus/mail-reply.xpm: Ditto.

* lisp/gnus/mail-source.el: Ditto.

* lisp/gnus/mailcap.el: Ditto.

* lisp/gnus/message.el: Ditto.

* lisp/gnus/messcompat.el: Ditto.

* lisp/gnus/mm-bodies.el: Ditto.

* lisp/gnus/mm-decode.el: Ditto.

* lisp/gnus/mm-encode.el: Ditto.

* lisp/gnus/mm-partial.el: Ditto.

* lisp/gnus/mm-util.el: Ditto.

* lisp/gnus/mm-uu.el: Ditto.

* lisp/gnus/mm-view.el: Ditto.

* lisp/gnus/mml.el: Ditto.

* lisp/gnus/next-ur.xpm: Ditto.

* lisp/gnus/nnagent.el: Ditto.

* lisp/gnus/nnbabyl.el: Ditto.

* lisp/gnus/nndoc.el: Ditto.

* lisp/gnus/nndraft.el: Ditto.

* lisp/gnus/nneething.el: Ditto.

* lisp/gnus/nnfolder.el: Ditto.

* lisp/gnus/nngateway.el: Ditto.

* lisp/gnus/nnheader.el: Ditto.

* lisp/gnus/nnimap.el: Ditto.

* lisp/gnus/nnkiboze.el: Ditto.

* lisp/gnus/nnlistserv.el: Ditto.

* lisp/gnus/nnmail.el: Ditto.

* lisp/gnus/nnmbox.el: Ditto.

* lisp/gnus/nnmh.el: Ditto.

* lisp/gnus/nnml.el: Ditto.

* lisp/gnus/nnoo.el: Ditto.

* lisp/gnus/nnslashdot.el: Ditto.

* lisp/gnus/nnsoup.el: Ditto.

* lisp/gnus/nnspool.el: Ditto.

* lisp/gnus/nntp.el: Ditto.

* lisp/gnus/nnultimate.el: Ditto.

* lisp/gnus/nnvirtual.el: Ditto.

* lisp/gnus/nnwarchive.el: Ditto.

* lisp/gnus/nnweb.el: Ditto.

* lisp/gnus/pop3.el: Ditto.

* lisp/gnus/post.xpm: Ditto.

* lisp/gnus/prev-ur.xpm: Ditto.

* lisp/gnus/qp.el: Ditto.

* lisp/gnus/reply-wo.xpm: Ditto.

* lisp/gnus/reply.xpm: Ditto.

* lisp/gnus/rfc1843.el: Ditto.

* lisp/gnus/rfc2045.el: Ditto.

* lisp/gnus/rfc2047.el: Ditto.

* lisp/gnus/rfc2231.el: Ditto.

* lisp/gnus/rot13.xpm: Ditto.

* lisp/gnus/save-aif.xpm: Ditto.

* lisp/gnus/save-art.xpm: Ditto.

* lisp/gnus/score-mode.el: Ditto.

* lisp/gnus/subscribe.xpm: Ditto.

* lisp/gnus/unsubscribe.xpm: Ditto.

* lisp/gnus/utf7.el: Ditto.

* lisp/gnus/uu-decode.xpm: Ditto.

* lisp/gnus/uu-post.xpm: Ditto.

* lisp/gnus/uudecode.el: Ditto.

* lisp/gnus/webmail.el: Ditto.

* lisp/international/characters.el: Ditto.

* lisp/language/cyrillic.el: Ditto.

* lisp/language/indian.el: Ditto.

* lisp/mail/mail-extr.el: Ditto.

* lisp/mail/smtpmail.el: Ditto.

* lisp/mail/supercite.el: Ditto.

* lisp/menu-bar.el: Ditto.

* lisp/mh-e/ChangeLog: Ditto.

* lisp/mh-e/mh-alias.el: Ditto.

* lisp/mh-e/mh-comp.el: Ditto.

* lisp/mh-e/mh-customize.el: Ditto.

* lisp/mh-e/mh-e.el: Ditto.

* lisp/mh-e/mh-funcs.el: Ditto.

* lisp/mh-e/mh-gnus.el: Ditto.

* lisp/mh-e/mh-identity.el: Ditto.

* lisp/mh-e/mh-inc.el: Ditto.

* lisp/mh-e/mh-index.el: Ditto.

* lisp/mh-e/mh-junk.el: Ditto.

* lisp/mh-e/mh-loaddefs.el: Ditto.

* lisp/mh-e/mh-mime.el: Ditto.

* lisp/mh-e/mh-pick.el: Ditto.

* lisp/mh-e/mh-seq.el: Ditto.

* lisp/mh-e/mh-speed.el: Ditto.

* lisp/mh-e/mh-utils.el: Ditto.

* lisp/mouse-sel.el: Ditto.

* lisp/mouse.el: Ditto.

* lisp/msb.el: Ditto.

* lisp/mwheel.el: Ditto.

* lisp/newcomment.el: Ditto.

* lisp/novice.el: Ditto.

* lisp/outline.el: Ditto.

* lisp/paren.el: Ditto.

* lisp/paths.el: Ditto.

* lisp/play/animate.el: Ditto.

* lisp/play/blackbox.el: Ditto.

* lisp/play/gamegrid.el: Ditto.

* lisp/play/landmark.el: Ditto.

* lisp/play/morse.el: Ditto.

* lisp/play/zone.el: Ditto.

* lisp/printing.el: Ditto.

* lisp/simple.el: Ditto.

* lisp/term/mac-win.el: Ditto.

* lisp/term/x-win.el: Ditto.

* lisp/term/xterm.el: Ditto.

* lisp/textmodes/bibtex.el: Ditto.

* lisp/textmodes/enriched.el: Ditto.

* lisp/textmodes/flyspell.el: Ditto.

* lisp/textmodes/ispell.el: Ditto.

* lisp/textmodes/paragraphs.el: Ditto.

* lisp/textmodes/reftex-auc.el: Ditto.

* lisp/textmodes/tex-mode.el: Ditto.

* lisp/url/ChangeLog: Ditto.

* lisp/url/url-auth.el: Ditto.

* lisp/url/url-cache.el: Ditto.

* lisp/url/url-cookie.el: Ditto.

* lisp/url/url-dired.el: Ditto.

* lisp/url/url-file.el: Ditto.

* lisp/url/url-ftp.el: Ditto.

* lisp/url/url-gw.el: Ditto.

* lisp/url/url-handlers.el: Ditto.

* lisp/url/url-history.el: Ditto.

* lisp/url/url-https.el: Ditto.

* lisp/url/url-irc.el: Ditto.

* lisp/url/url-ldap.el: Ditto.

* lisp/url/url-mailto.el: Ditto.

* lisp/url/url-methods.el: Ditto.

* lisp/url/url-misc.el: Ditto.

* lisp/url/url-news.el: Ditto.

* lisp/url/url-nfs.el: Ditto.

* lisp/url/url-parse.el: Ditto.

* lisp/url/url-privacy.el: Ditto.

* lisp/url/url-util.el: Ditto.

* lisp/url/url-vars.el: Ditto.

* lisp/url/url.el: Ditto.

* lisp/calendar/icalendar.el: New file.

* lisp/gnus/ChangeLog.2: Ditto.

* lisp/gnus/TODO: Ditto.

* lisp/gnus/bar.xbm: Ditto.

* lisp/gnus/bar.xpm: Ditto.

* lisp/gnus/blink.pbm: Ditto.

* lisp/gnus/blink.xpm: Ditto.

* lisp/gnus/braindamaged.xpm: Ditto.

* lisp/gnus/canlock.el: Ditto.

* lisp/gnus/compface.el: Ditto.

* lisp/gnus/cry.xpm: Ditto.

* lisp/gnus/dead.xpm: Ditto.

* lisp/gnus/deuglify.el: Ditto.

* lisp/gnus/dig.el: Ditto.

* lisp/gnus/dns.el: Ditto.

* lisp/gnus/evil.xpm: Ditto.

* lisp/gnus/forced.xpm: Ditto.

* lisp/gnus/frown.xpm: Ditto.

* lisp/gnus/gnus-delay.el: Ditto.

* lisp/gnus/gnus-diary.el: Ditto.

* lisp/gnus/gnus-dired.el: Ditto.

* lisp/gnus/gnus-fun.el: Ditto.

* lisp/gnus/gnus-picon.el: Ditto.

* lisp/gnus/gnus-pointer.xbm: Ditto.

* lisp/gnus/gnus-pointer.xpm: Ditto.

* lisp/gnus/gnus-registry.el: Ditto.

* lisp/gnus/gnus-sieve.el: Ditto.

* lisp/gnus/important.xpm: Ditto.

* lisp/gnus/indifferent.xpm: Ditto.

* lisp/gnus/mm-extern.el: Ditto.

* lisp/gnus/mm-url.el: Ditto.

* lisp/gnus/mml-sec.el: Ditto.

* lisp/gnus/mml-smime.el: Ditto.

* lisp/gnus/mml1991.el: Ditto.

* lisp/gnus/mml2015.el: Ditto.

* lisp/gnus/nndb.el: Ditto.

* lisp/gnus/nndiary.el: Ditto.

* lisp/gnus/gnus.xbm: Ditto.

* lisp/gnus/gnus.xpm: Ditto.

* lisp/gnus/grin.xpm: Ditto.

* lisp/gnus/hex-util.el: Ditto.

* lisp/gnus/html2text.el: Ditto.

* lisp/gnus/nnmaildir.el: Ditto.

* lisp/gnus/nnnil.el: Ditto.

* lisp/gnus/nnrss.el: Ditto.

* lisp/gnus/nnwfm.el: Ditto.

* lisp/gnus/pgg-def.el: Ditto.

* lisp/gnus/pgg-gpg.el: Ditto.

* lisp/gnus/pgg-parse.el: Ditto.

* lisp/gnus/pgg-pgp.el: Ditto.

* lisp/gnus/pgg-pgp5.el: Ditto.

* lisp/gnus/pgg.el: Ditto.

* lisp/gnus/preview.xbm: Ditto.

* lisp/gnus/preview.xpm: Ditto.

* lisp/gnus/receipt.xpm: Ditto.

* lisp/gnus/reverse-smile.xpm: Ditto.

* lisp/gnus/sad.pbm: Ditto.

* lisp/gnus/sad.xpm: Ditto.

* lisp/gnus/sha1.el: Ditto.

* lisp/gnus/sieve-manage.el: Ditto.

* lisp/gnus/sieve-mode.el: Ditto.

* lisp/gnus/sieve.el: Ditto.

* lisp/gnus/smile.xpm: Ditto.

* lisp/gnus/smiley.el: Ditto.

* lisp/gnus/smime.el: Ditto.

* lisp/gnus/spam-report.el: Ditto.

* lisp/gnus/spam-stat.el: Ditto.

* lisp/gnus/spam.el: Ditto.

* lisp/gnus/unimportant.xpm: Ditto.

* lisp/gnus/wry.xpm: Ditto.

* lisp/gnus/yenc.el: Ditto.

* lisp/mh-e/mh-acros.el: Ditto.

* lisp/mh-e/mh-init.el: Ditto.

* lisp/mh-e/mh-print.el: Ditto.

* lisp/net/password.el: Ditto.

* lisp/textmodes/dns-mode.el: Ditto.

* lisp/gnus/gnus-mule.el: Removed.

* lisp/gnus/smiley-ems.el: Ditto.

Files:

• branches/2.2/lisp/gnus/gnus-msg.el (modified) (64 diffs)

branches/2.2/lisp/gnus/gnus-msg.el

@@ -1 +1 @@
-;;; gnus-msg.el --- mail and post interface for Gnus
-
+, 2001, 2002, 2003, 2004
-;;        Free Software Foundation, Inc.
-
@@ -34 +34 @@
-(require 'message)
-(require 'gnus-art)
+(require 'gnus-util)
-
-(defcustom gnus-post-method 'current
@@ -55 +56 @@
-                 (sexp :tag "Methods" ,gnus-select-method)))
-
-var
+custom
-  "*All outgoing messages will be put in this group.
-If you want to store all your outgoing mail and articles in the group
@@ -64 +65 @@
-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
-
-
-
-
+
+
+
+
+
+
+
-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
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
-  "Hi,
-
@@ -91 +100 @@
-  "Format string to be inserted when complaining about crossposts.
-The first %s will be replaced by the Newsgroups header;
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-  '(("^\\(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
@@ -119 +185 @@
-Note that any value other than nil for HEADER infringes some RFCs, so
-use this option with care."
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-;;; Internal variables.
@@ -139 +290 @@
-  "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
@@ -167 +322 @@
-(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"))
@@ -177 +334 @@
-(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
@@ -186 +344 @@
-  "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
@@ -191 +351 @@
-  "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
@@ -199 +361 @@
-  "b" gnus-summary-resend-bounced-mail
-  ;; "c" gnus-summary-send-draft
-
+
+
-
-;;; 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)
@@ -208 +376 @@
-        (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)))
-
+
+
-           (,group gnus-newsgroup-name)
-           (message-header-setup-hook
@@ -220 +390 @@
-       (add-hook 'message-header-setup-hook 'gnus-inews-insert-gcc)
-       (add-hook 'message-header-setup-hook 'gnus-inews-insert-archive-gcc)
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-       (unwind-protect
-           (progn
-             ,@forms)
-
+
+
-         (setq gnus-message-buffer (current-buffer))
-         (set (make-local-variable 'gnus-message-group-art)
@@ -234 +427 @@
-               (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
-
+
+
-  "Start editing a mail message to be sent.
-Like `message-mail', but with Gnus paraphernalia, particularly the
-Gcc: header for archiving purposes."
-  (interactive)
-
-
+
+
+
+
+
+
+
+
+
-  ;; COMPOSEFUNC should return t if succeed.  Undocumented ???
-  t)
-
+(defvar save-selected-window-window)
+
+;;;###autoload
+(defun gnus-button-mailto (address)
+  "Mail to ADDRESS."
+  (set-buffer (gnus-copy-article-buffer))
+  (gnus-setup-message 'message
+    (message-reply address))
+  (and (boundp 'save-selected-window-window)
+       (not (window-live-p save-selected-window-window))
+       (setq save-selected-window-window (selected-window))))
+
+;;;###autoload
+(defun gnus-button-reply (&optional to-address wide)
+  "Like `message-reply'."
+  (interactive)
+  (gnus-setup-message 'message
+    (message-reply to-address wide))
+  (and (boundp 'save-selected-window-window)
+       (not (window-live-p save-selected-window-window))
+       (setq save-selected-window-window (selected-window))))
+
-;;;###autoload
-(define-mail-user-agent 'gnus-user-agent
-    
-    
+
+
-
-(defun gnus-setup-posting-charset (group)
@@ -267 +502 @@
-          (when (or (and (stringp (car elem))
-                         (string-match (car elem) group))
-gnus-
+
-                         (funcall (car elem) group))
-                    (and (symbolp (car elem))
@@ -273 +508 @@
-            (throw 'found (cons (cadr elem) (caddr elem)))))))))
-
-
-
+
+
+
-  (add-hook 'message-sent-hook (if gnus-agent 'gnus-agent-possibly-do-gcc
-                                 'gnus-inews-do-gcc) nil t)
-  (when gnus-agent
-
+gnus-
-    (add-hook 'message-header-hook 'gnus-agent-possibly-save-gcc nil t))
-  (setq message-post-method
@@ -285 +521 @@
-  (setq message-newsreader (setq message-mailer (gnus-extended-version)))
-  (message-add-action
-   `(set-window-configuration ,winconf) 'exit 'postpone 'kill)
-  (message-add-action
-   `(when (gnus-buffer-exists-p ,buffer)
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-(put 'gnus-setup-message 'lisp-indent-function 1)
@@ -307 +553 @@
-  ;; 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
@@ -318 +566 @@
-                      (gnus-group-group-name))
-                  ""))
+          ;; #### see comment in gnus-setup-message -- drv
-          (gnus-setup-message 'message (message-mail)))
-      (save-excursion
@@ -323 +572 @@
-        (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)
-
-
-
+
+
+
+
-  (interactive "P")
-  ;; Bind this variable here to make message mode hooks work ok.
@@ -335 +617 @@
-                                  (gnus-read-active-file-p))
-               (gnus-group-group-name))
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-    (gnus-post-news 'post gnus-newsgroup-name)))
-
-(defun gnus-summary-post-news ()
-  "Start composing a news message."
-  (interactive)
-  (gnus-post-news 'post gnus-newsgroup-name))
-
-(defun gnus-summary-followup (yank &optional force-news)
-  "Compose a followup to an article.
-
+
+
+
+
-  (interactive
-   (list (and current-prefix-arg
-              (gnus-summary-work-articles 1))))
-  (when yank
-
+
+
+
+
-  (save-window-excursion
-    (gnus-summary-select-article))
@@ -358 +728 @@
-    (gnus-post-news nil gnus-newsgroup-name
-                    headers gnus-article-buffer
-
+
+
-
-(defun gnus-summary-followup-with-original (n &optional force-news)
-
+
+
+
-  (interactive "P")
-  (gnus-summary-followup (gnus-summary-work-articles n) force-news))
@@ -378 +751 @@
-
-(defun gnus-inews-yank-articles (articles)
-
+ 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))
-
+ nil yank-string
-      (let ((message-reply-buffer gnus-article-copy)
-
+
+
+
+
+
+
-        (message-yank-original)
-        (setq beg (or beg (mark t))))
@@ -404 +785 @@
-        (message-post-method
-         `(lambda (arg)
-not (eq symp 'a)
+eq ',symp 'a
-        article)
-    (while (setq article (pop articles))
@@ -436 +817 @@
-
-
-
+ yank-string
-  ;; make a copy of the article buffer with all text properties removed
-  ;; this copy is in the buffer gnus-article-copy.
@@ -452 +833 @@
-      (save-excursion
-        (set-buffer article-buffer)
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-      gnus-article-copy)))
-
@@ -485 +884 @@
-  (when article-buffer
-    (gnus-copy-article-buffer))
-
+
+
-        (add-to-list gnus-add-to-list))
-    (gnus-setup-message (cond (yank 'reply-yank)
@@ -496 +896 @@
-             newsgroup-p)
-        (when group
-group-find-parameter group 'to-address
+parameter-to-address group
-                to-group (gnus-group-find-parameter group 'to-group)
-group-find-parameter group 'to-list
+parameter-to-list group
-                newsgroup-p (gnus-group-find-parameter group 'newsgroup)
-                mailing-list (when gnus-mailing-list-groups
@@ -510 +910 @@
-                (and (gnus-news-group-p
-                      (or pgroup gnus-newsgroup-name)
-
-
+
-                     (not mailing-list)
-                     (not to-list)
@@ -517 +916 @@
-