properly mark Attic files as deleted

1 files changed, 0 insertions, 842 deletions

diff --git a/lisp/gnuspost.el b/lisp/gnuspost.el
deleted file mode 100644
index 441feb245d..0000000000
--- a/lisp/gnuspost.el
+++ /dev/null
@@ -1,842 +0,0 @@
-;;; gnuspost.el --- post news commands for GNUS newsreader
-
-;; Copyright (C) 1989, 1990, 1993, 1994 Free Software Foundation, Inc.
-
-;; Author: Masanobu UMEDA <[email protected]>
-;; 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, 675 Mass Ave, Cambridge, MA 02139, USA.
-
-;;; Code:
-
-(require 'gnus)
-
-(defvar gnus-organization-file "/usr/lib/news/organization"
-  "*Local news organization file.")
-
-(defvar gnus-post-news-buffer "*post-news*")
-(defvar gnus-winconf-post-news nil)
-
-(autoload 'news-reply-mode "rnewspost")
-(autoload 'timezone-make-date-arpa-standard "timezone")
-
-;;; Post news commands of GNUS Group Mode and Summary Mode
-
-(defun gnus-group-post-news ()
-  "Post an article."
-  (interactive)
-  ;; Save window configuration.
-  (setq gnus-winconf-post-news (current-window-configuration))
-  (unwind-protect
-      (gnus-post-news)
-    (or (and (eq (current-buffer) (get-buffer gnus-post-news-buffer))
-	     (not (zerop (buffer-size))))
-	;; Restore last window configuration.
-	(set-window-configuration gnus-winconf-post-news)))
-  ;; We don't want to return to Summary buffer nor Article buffer later.
-  (if (get-buffer gnus-summary-buffer)
-      (bury-buffer gnus-summary-buffer))
-  (if (get-buffer gnus-article-buffer)
-      (bury-buffer gnus-article-buffer)))
-
-(defun gnus-summary-post-news ()
-  "Post an article."
-  (interactive)
-  (gnus-summary-select-article t nil)
-  ;; Save window configuration.
-  (setq gnus-winconf-post-news (current-window-configuration))
-  (unwind-protect
-      (progn
-	(switch-to-buffer gnus-article-buffer)
-	(widen)
-	(delete-other-windows)
-	(gnus-post-news))
-    (or (and (eq (current-buffer) (get-buffer gnus-post-news-buffer))
-	     (not (zerop (buffer-size))))
-	;; Restore last window configuration.
-	(set-window-configuration gnus-winconf-post-news)))
-  ;; We don't want to return to Article buffer later.
-  (bury-buffer gnus-article-buffer))
-
-(defun gnus-summary-followup (yank)
-  "Post a reply article.
-If prefix argument YANK is non-nil, original article is yanked automatically."
-  (interactive "P")
-  (gnus-summary-select-article t nil)
-  ;; Check Followup-To: poster.
-  (set-buffer gnus-article-buffer)
-  (if (and gnus-use-followup-to
-	   (string-equal "poster" (gnus-fetch-field "followup-to"))
-	   (or (not (eq gnus-use-followup-to t))
-	       (not (y-or-n-p "Do you want to ignore `Followup-To: poster'? "))))
-      ;; Mail to the poster.  GNUS is now RFC1036 compliant.
-      (gnus-summary-reply yank)
-    ;; Save window configuration.
-    (setq gnus-winconf-post-news (current-window-configuration))
-    (unwind-protect
-	(progn
-	  (switch-to-buffer gnus-article-buffer)
-	  (widen)
-	  (delete-other-windows)
-	  (gnus-news-reply yank))
-      (or (and (eq (current-buffer) (get-buffer gnus-post-news-buffer))
-	       (not (zerop (buffer-size))))
-	  ;; Restore last window configuration.
-	  (set-window-configuration gnus-winconf-post-news)))
-    ;; We don't want to return to Article buffer later.
-    (bury-buffer gnus-article-buffer)))
-
-(defun gnus-summary-followup-with-original ()
-  "Post a reply article with original article."
-  (interactive)
-  (gnus-summary-followup t))
-
-(defun gnus-summary-cancel-article ()
-  "Cancel an article you posted."
-  (interactive)
-  (gnus-summary-select-article t nil)
-  (gnus-eval-in-buffer-window gnus-article-buffer
-    (gnus-cancel-news)))
-
-
-;;; Post a News using NNTP
-
-;;;###autoload
-(defalias 'sendnews 'gnus-post-news)
-
-;;;###autoload
-(defalias 'postnews 'gnus-post-news)
-
-;;;###autoload
-(defun gnus-post-news ()
-  "Begin editing a new USENET news article to be posted.
-Type \\[describe-mode] once editing the article to get a list of commands."
-  (interactive)
-  (if (or (not gnus-novice-user)
-	  (y-or-n-p "Are you sure you want to post to all of USENET? "))
-      (let ((artbuf (current-buffer))
-	    (newsgroups			;Default newsgroup.
-	     (if (eq major-mode 'gnus-article-mode) gnus-newsgroup-name))
-	    (subject nil)
-	    ;; Get default distribution.
-	    (distribution (car gnus-local-distributions))
-	    (followup-to nil))
-	;; Connect to NNTP server if not connected yet, and get
-	;; several information.
-	(if (not (gnus-server-opened))
-	    (progn
-	      (gnus-start-news-server t) ;Confirm server.
-	      (gnus-setup-news)))
-	;; Get current article information.
-	(save-restriction
-	  (and (not (zerop (buffer-size)))
-	       ;;(equal major-mode 'news-mode)
-	       (equal major-mode 'gnus-article-mode)
-	       (progn
-		 ;;(news-show-all-headers)
-		 (gnus-article-show-all-headers)
-		 (narrow-to-region (point-min)
-				   (progn (goto-char (point-min))
-					  (search-forward "\n\n")
-					  (point)))))
-	  (setq news-reply-yank-from (mail-fetch-field "from"))
-	  (setq news-reply-yank-message-id (mail-fetch-field "message-id")))
-	(pop-to-buffer gnus-post-news-buffer)
-	(news-reply-mode)
-	(gnus-overload-functions)
-	(if (and (buffer-modified-p)
-		 (> (buffer-size) 0)
-		 (not (y-or-n-p "Unsent article being composed; erase it? ")))
-	    ;; Continue composition.
-	    ;; Make news-reply-yank-original work on the current article.
-	    (setq mail-reply-buffer artbuf)
-	  (erase-buffer)
-	  (if gnus-interactive-post
-	      ;; Newsgroups, subject and distribution are asked for.
-	      ;; Suggested by [email protected].
-	      (progn
-		;; Subscribed newsgroup names are required for
-		;; completing read of newsgroup.
-		(or gnus-newsrc-assoc
-		    (gnus-read-newsrc-file))
-		;; Which do you like? (UMERIN)
-		;; (setq newsgroups (read-string "Newsgroups: " "general"))
-		(or newsgroups		;Use the default newsgroup.
-		    (let (group)
-		      (while (not
-			      (string=
-			       (setq group 
-				     (completing-read "Newsgroup: "
-						      gnus-newsrc-assoc
-						      nil 'require-match))
-			       ""))
-			(or followup-to (setq followup-to group))
-			(if newsgroups
-			    (setq newsgroups (concat newsgroups "," group))
-			  (setq newsgroups group)))))
-		(setq subject (read-string "Subject: "))
-		;; Choose a distribution from gnus-distribution-list.
-		;; completing-read should not be used with
-		;; 'require-match functionality in order to allow use
-		;; of unknow distribution.
-		(gnus-read-distributions-file)
-		(setq distribution
-		      (if (consp gnus-distribution-list)
-			  (completing-read "Distribution: "
-					   gnus-distribution-list
-					   nil nil ;Never 'require-match
-					   distribution ;Default distribution.
-					   )
-			(read-string "Distribution: ")))
-		;; Empty string is okay.
-		;;(if (string-equal distribution "")
-		;;    (setq distribution nil))
-		))
-	  (news-setup () subject () newsgroups artbuf)
-	  ;; Make sure the article is posted by GNUS.
-	  ;;(mail-position-on-field "Posting-Software")
-	  ;;(insert "GNUS: NNTP-based News Reader for GNU Emacs")
-	  ;; Insert Distribution: field.
-	  ;; Suggested by [email protected].
-	  (mail-position-on-field "Distribution")
-	  (insert (or distribution ""))
-	  ;; Add Followup-To header
-	  (if followup-to
-	      (progn
-		(mail-position-on-field "Followup-To")
-		(insert followup-to)))
-	  ;; Handle author copy using FCC field.
-	  (if gnus-author-copy
-	      (progn
-		(mail-position-on-field "FCC")
-		(insert gnus-author-copy)))
-	  (if gnus-interactive-post
-	      ;; All fields are filled in.
-	      (goto-char (point-max))
-	    ;; Move point to Newsgroup: field.
-	    (goto-char (point-min))
-	    (end-of-line))
-	  ))
-    (message "")))
-
-(defun gnus-news-reply (&optional yank)
-  "Compose and post a reply (aka a followup) to the current article on USENET.
-While composing the followup, use \\[news-reply-yank-original] to yank the
-original message into it."
-  (interactive)
-  (if (or (not gnus-novice-user)
-	  (y-or-n-p "Are you sure you want to followup to all of USENET? "))
-      (let (from cc subject date to followup-to newsgroups message-of
-		 references distribution message-id
-		 (artbuf (current-buffer)))
-	(save-restriction
-	  (and (not (zerop (buffer-size)))
-	       ;;(equal major-mode 'news-mode)
-	       (equal major-mode 'gnus-article-mode)
-	       (progn
-		 ;; (news-show-all-headers)
-		 (gnus-article-show-all-headers)
-		 (narrow-to-region (point-min)
-				   (progn (goto-char (point-min))
-					  (search-forward "\n\n")
-					  (point)))))
-	  (setq from (mail-fetch-field "from"))
-	  ;; Get reply-to working corrrectly for gnus-auto-mail-to-author (jpm)
-	  (setq reply-to (mail-fetch-field "reply-to"))
-	  (setq	news-reply-yank-from from)
-	  (setq	subject (mail-fetch-field "subject"))
-	  (setq	date (mail-fetch-field "date"))
-	  (setq followup-to (mail-fetch-field "followup-to"))
-	  ;; Ignore Followup-To: poster.
-	  (if (or (null gnus-use-followup-to) ;Ignore followup-to: field.
-		  (string-equal "" followup-to)	;Bogus header.
-		  (string-equal "poster" followup-to))
-	      (setq followup-to nil))
-	  (setq	newsgroups (or followup-to (mail-fetch-field "newsgroups")))
-	  (setq	references (mail-fetch-field "references"))
-	  (setq	distribution (mail-fetch-field "distribution"))
-	  (setq	message-id (mail-fetch-field "message-id"))
-	  (setq	news-reply-yank-message-id message-id))
-	(pop-to-buffer gnus-post-news-buffer)
-	(news-reply-mode)
-	(gnus-overload-functions)
-	(if (and (buffer-modified-p)
-		 (> (buffer-size) 0)
-		 (not (y-or-n-p "Unsent article being composed; erase it? ")))
-	    ;; Continue composition.
-	    ;; Make news-reply-yank-original work on current article.
-	    (setq mail-reply-buffer artbuf)
-	  (erase-buffer)
-	  (and subject
-	       (setq subject
-		     (concat "Re: " (gnus-simplify-subject subject 're-only))))
-	  (and from
-	       (progn
-		 (let ((stop-pos
-			(string-match "  *at \\|  *@ \\| *(\\| *<" from)))
-		   (setq message-of
-			 (concat
-			  (if stop-pos (substring from 0 stop-pos) from)
-			  "'s message of "
-			  date)))))
-	  (news-setup nil subject message-of newsgroups artbuf)
-	  (if followup-to
-	      (progn (news-reply-followup-to)
-		     (insert followup-to)))
-	  ;; Fold long references line to follow RFC1036.
-	  (mail-position-on-field "References")
-	  (let ((begin (point))
-		(fill-column 79)
-		(fill-prefix "\t"))
-	    (if references
-		(insert references))
-	    (if (and references message-id)
-		(insert " "))
-	    (if message-id
-		(insert message-id))
-	    ;; The region must end with a newline to fill the region
-	    ;; without inserting extra newline.
-	    (fill-region-as-paragraph begin (1+ (point))))
-	  ;; Make sure the article is posted by GNUS.
-	  ;;(mail-position-on-field "Posting-Software")
-	  ;;(insert "GNUS: NNTP-based News Reader for GNU Emacs")
-	  ;; Distribution must be the same as original article.
-	  (mail-position-on-field "Distribution")
-	  (insert (or distribution ""))
-	  ;; Handle author copy using FCC field.
-	  (if gnus-author-copy
-	      (progn
-		(mail-position-on-field "FCC")
-		(insert gnus-author-copy)))
-	  ;; Insert To: FROM field, which is expected to mail the
-	  ;; message to the author of the article too.  Use Reply-To
-	  ;; field like gnus-mail-reply-using-m* (jpm).
-	  (if (and gnus-auto-mail-to-author (or reply-to from))
-	      (progn
-		(goto-char (point-min))
-		(insert "To: " (or reply-to from) "\n")))
-	  (goto-char (point-max)))
-	;; Yank original article automatically.
-	(if yank
-	    (let ((last (point)))
-	      ;;(goto-char (point-max))
-	      ;; Insert at current point.
-	      (news-reply-yank-original nil)
-	      (goto-char last)))
-	)
-    (message "")))
-
-(defun gnus-inews-news ()
-  "Send a news message."
-  (interactive)
-  (let* ((case-fold-search nil)
-	 (server-running (gnus-server-opened)))
-    (save-excursion
-      ;; Connect to default NNTP server if necessary.
-      ;; Suggested by [email protected].
-      (gnus-start-news-server)		;Use default server.
-      ;; NNTP server must be opened before current buffer is modified.
-      (widen)
-      (goto-char (point-min))
-      (run-hooks 'news-inews-hook)
-      (save-restriction
-	(narrow-to-region
-	 (point-min)
-	 (progn
-	   (goto-char (point-min))
-	   (search-forward (concat "\n" mail-header-separator "\n"))
-	   (point)))
-
-	 ;; Correct newsgroups field: change sequence of spaces to comma and 
-	 ;; eliminate spaces around commas.  Eliminate imbedded line breaks.
-	 (goto-char (point-min))
-	 (if (search-forward-regexp "^Newsgroups: +" nil t)
-	     (save-restriction
-	       (narrow-to-region
-		(point)
-		(if (re-search-forward "^[^ \t]" nil 'end)
-		    (match-beginning 0)
-		  (point-max)))
-	       (goto-char (point-min))
-	       (replace-regexp "\n[ \t]+" " ") ;No line breaks (too confusing)
-	       (goto-char (point-min))
-	       (replace-regexp "[ \t\n]*,[ \t\n]*\\|[ \t]+" ",")
-	     ))
-
-	 ;; Mail the message too if To: or Cc: exists.
-	 (if (or (mail-fetch-field "to" nil t)
-		 (mail-fetch-field "cc" nil t))
-	     (if gnus-mail-send-method
-		 (progn
-		   (message "Sending via mail...")
-		   (widen)
-		   (funcall gnus-mail-send-method)
-		   (message "Sending via mail... done"))
-	       (ding)
-	       (message "No mailer defined.  To: and/or Cc: fields ignored.")
-	       (sit-for 1))))
-
-      ;; Send to NNTP server. 
-      (message "Posting to USENET...")
-      (if (gnus-inews-article)
-	  (message "Posting to USENET... done")
-	;; We cannot signal an error.
-	(ding) (message "Article rejected: %s" (gnus-status-message)))
-      (set-buffer-modified-p nil))
-    ;; If NNTP server is opened by gnus-inews-news, close it by myself.
-    (or server-running
-	(gnus-close-server))
-    (and (fboundp 'bury-buffer) (bury-buffer))
-    ;; Restore last window configuration.
-    (and gnus-winconf-post-news
-	 (set-window-configuration gnus-winconf-post-news))
-    (setq gnus-winconf-post-news nil)
-    ))
-
-(defun gnus-cancel-news ()
-  "Cancel an article you posted."
-  (interactive)
-  (if (yes-or-no-p "Do you really want to cancel this article? ")
-      (let ((from nil)
-	    (newsgroups nil)
-	    (message-id nil)
-	    (distribution nil))
-	(save-excursion
-	  ;; Get header info. from original article.
-	  (save-restriction
-	    (gnus-article-show-all-headers)
-	    (goto-char (point-min))
-	    (search-forward "\n\n" nil 'move)
-	    (narrow-to-region (point-min) (point))
-	    (setq from (mail-fetch-field "from"))
-	    (setq newsgroups (mail-fetch-field "newsgroups"))
-	    (setq message-id (mail-fetch-field "message-id"))
-	    (setq distribution (mail-fetch-field "distribution")))
-	  ;; Verify if the article is absolutely user's by comparing
-	  ;; user id with value of its From: field.
-	  (if (not
-	       (string-equal
-		(downcase (mail-strip-quoted-names from))
-		(downcase (mail-strip-quoted-names (gnus-inews-user-name)))))
-	      (progn
-		(ding) (message "This article is not yours."))
-	    ;; Make control article.
-	    (set-buffer (get-buffer-create " *GNUS-canceling*"))
-	    (buffer-disable-undo (current-buffer))
-	    (erase-buffer)
-	    (insert "Newsgroups: " newsgroups "\n"
-		    "Subject: cancel " message-id "\n"
-		    "Control: cancel " message-id "\n"
-		    ;; We should not use the first value of
-		    ;;  `gnus-distribution-list' as default value,
-		    ;;  because distribution must be as same as original
-		    ;;  article.
-		    "Distribution: " (or distribution "") "\n"
-		    mail-header-separator "\n"
-		    )
-	    ;; Send the control article to NNTP server.
-	    (message "Canceling your article...")
-	    (if (gnus-inews-article)
-		(message "Canceling your article... done")
-	      (ding) (message "Failed to cancel your article"))
-	    ;; Kill the article buffer.
-	    (kill-buffer (current-buffer))
-	    )))
-    ))
-
-
-;;; Lowlevel inews interface
-
-(defun gnus-inews-article ()
-  "Post an article in current buffer using NNTP protocol."
-  (let ((artbuf (current-buffer))
-	(tmpbuf (get-buffer-create " *GNUS-posting*")))
-    (save-excursion
-      (set-buffer tmpbuf)
-      (buffer-disable-undo (current-buffer))
-      (erase-buffer)
-      (insert-buffer-substring artbuf)
-      ;; Remove the header separator.
-      (goto-char (point-min))
-      (search-forward (concat "\n" mail-header-separator "\n"))
-      (replace-match "\n\n")
-      (goto-char (point-max))
-      ;; require a newline at the end for inews to append .signature to
-      (or (= (preceding-char) ?\n)
-	  (insert ?\n))
-      ;; This hook may insert a signature.
-      (run-hooks 'gnus-prepare-article-hook)
-      ;; Prepare article headers.  All message body such as signature
-      ;; must be inserted before Lines: field is prepared.
-      (save-restriction
-	(goto-char (point-min))
-	(search-forward "\n\n")
-	(narrow-to-region (point-min) (point))
-	(gnus-inews-insert-headers))
-      ;; Run final inews hooks.  This hook may do FCC.
-      ;; The article must be saved before being posted because
-      ;; `gnus-request-post' modifies the buffer.
-      (run-hooks 'gnus-inews-article-hook)
-      ;; Post an article to NNTP server.
-      ;; Return NIL if post failed.
-      (prog1
-	  (gnus-request-post)
-	(kill-buffer (current-buffer)))
-      )))
-
-(defun gnus-inews-insert-headers ()
-  "Prepare article headers.
-Fields already prepared in the buffer are not modified.
-Fields in gnus-required-headers will be generated."
-  (save-excursion
-    (let ((date (gnus-inews-date))
-	  (message-id (gnus-inews-message-id))
-	  (organization (gnus-inews-organization)))
-      (goto-char (point-min))
-      (or (mail-fetch-field "path")
-	  (and (memq 'Path gnus-required-headers)
-	       (insert "Path: " (gnus-inews-path) "\n")))
-      (or (mail-fetch-field "from")
-	  (and (memq 'From gnus-required-headers)
-	       (insert "From: " (gnus-inews-user-name) "\n")))
-      ;; If there is no subject, make Subject: field.
-      (or (mail-fetch-field "subject")
-	  (and (memq 'Subject gnus-required-headers)
-	       (insert "Subject: \n")))
-      ;; If there is no newsgroups, make Newsgroups: field.
-      (or (mail-fetch-field "newsgroups")
-	  (and (memq 'Newsgroups gnus-required-headers)
-	       (insert "Newsgroups: \n")))
-      (or (mail-fetch-field "message-id")
-	  (and message-id
-	       (memq 'Message-ID gnus-required-headers)
-	       (insert "Message-ID: " message-id "\n")))
-      (or (mail-fetch-field "date")
-	  (and date
-	       (memq 'Date gnus-required-headers)
-	       (insert "Date: " date "\n")))
-      ;; Optional fields in RFC977 and RFC1036
-      (or (mail-fetch-field "organization")
-	  (and organization
-	       (memq 'Organization gnus-required-headers)
-	       (let ((begin (point))
-		     (fill-column 79)
-		     (fill-prefix "\t"))
-		 (insert "Organization: " organization "\n")
-		 (fill-region-as-paragraph begin (point)))))
-      (or (mail-fetch-field "distribution")
-	  (and (memq 'Distribution gnus-required-headers)
-	       (insert "Distribution: \n")))
-      (or (mail-fetch-field "lines")
-	  (and (memq 'Lines gnus-required-headers)
-	       (insert "Lines: " (gnus-inews-lines) "\n")))
-      )))
-
-
-;; Utility functions.
-
-(defun gnus-inews-insert-signature ()
-  "Insert signature file in current article buffer.
-If there is a file named .signature-DISTRIBUTION, it is used instead
-of usual .signature when the distribution of the article is
-DISTRIBUTION.  Set the variable to nil to prevent appending the
-signature file automatically.
-Signature file is specified by the variable gnus-signature-file."
-  (save-excursion
-    (save-restriction
-      ;; Change signature file by distribution.
-      ;; Suggested by [email protected].
-      (let ((signature
-	     (if gnus-signature-file
-		 (expand-file-name gnus-signature-file nil)))
-	    (distribution nil))
-	(goto-char (point-min))
-	(search-forward "\n\n")
-	(narrow-to-region (point-min) (point))
-	(setq distribution (mail-fetch-field "distribution"))
-	(widen)
-	(if signature
-	    (progn
-	      (if (file-exists-p (concat signature "-" distribution))
-		  (setq signature (concat signature "-" distribution)))
-	      ;; Insert signature.
-	      (if (file-exists-p signature)
-		  (progn
-		    (goto-char (point-max))
-		    (insert "-- \n")
-		    (insert-file-contents signature)))
-	      ))))))
-
-(defun gnus-inews-do-fcc ()
-  "Process FCC: fields in current article buffer.
-Unless the first character of the field is `|', the article is saved
-to the specified file using the function specified by the variable
-gnus-author-copy-saver.  The default function rmail-output saves in
-Unix mailbox format.
-If the first character is `|', the contents of the article is send to
-a program specified by the rest of the value."
-  (let ((fcc-list nil)
-	(fcc-file nil)
-	(case-fold-search t))		;Should ignore case.
-    (save-excursion
-      (save-restriction
-	(goto-char (point-min))
-	(search-forward "\n\n")
-	(narrow-to-region (point-min) (point))
-	(goto-char (point-min))
-	(while (re-search-forward "^FCC:[ \t]*" nil t)
-	  (setq fcc-list
-		(cons (buffer-substring
-		       (point)
-		       (progn
-			 (end-of-line)
-			 (skip-chars-backward " \t")
-			 (point)))
-		      fcc-list))
-	  (delete-region (match-beginning 0)
-			 (progn (forward-line 1) (point))))
-	;; Process FCC operations.
-	(widen)
-	(while fcc-list
-	  (setq fcc-file (car fcc-list))
-	  (setq fcc-list (cdr fcc-list))
-	  (cond ((string-match "^[ \t]*|[ \t]*\\(.*\\)[ \t]*$" fcc-file)
-		 (let ((program (substring fcc-file
-					   (match-beginning 1) (match-end 1))))
-		   ;; Suggested by [email protected].
-		   ;; Send article to named program.
-		   (call-process-region (point-min) (point-max) shell-file-name
-					nil nil nil "-c" program)
-		   ))
-		(t
-		 ;; Suggested by [email protected].
-		 ;; Save article in Unix mail format by default.
-		 (if (and gnus-author-copy-saver
-			  (not (eq gnus-author-copy-saver 'rmail-output)))
-		     (funcall gnus-author-copy-saver fcc-file)
-		   (if (and (file-readable-p fcc-file)
-			    (mail-file-babyl-p fcc-file))
-		       (gnus-output-to-rmail fcc-file)
-		     (rmail-output fcc-file 1 t t)))
-		 ))
-	  )
-	))
-    ))
-
-(defun gnus-inews-path ()
-  "Return uucp path."
-  (let ((login-name (gnus-inews-login-name)))
-    (cond ((null gnus-use-generic-path)
-	   (concat gnus-nntp-server "!" login-name))
-	  ((stringp gnus-use-generic-path)
-	   ;; Support GENERICPATH.  Suggested by [email protected].
-	   (concat gnus-use-generic-path "!" login-name))
-	  (t login-name))
-    ))
-
-(defun gnus-inews-user-name ()
-  "Return user's network address as `NAME@DOMAIN (FULLNAME)'."
-  (let ((full-name (gnus-inews-full-name)))
-    (concat (if (or gnus-user-login-name gnus-use-generic-from
-		    gnus-local-domain (getenv "DOMAINNAME"))
-		(concat (gnus-inews-login-name) "@"
-			(gnus-inews-domain-name gnus-use-generic-from))
-	      user-mail-address)
-	    ;; User's full name.
-	    (cond ((string-equal full-name "") "")
-		  ((string-equal full-name "&")	;Unix hack.
-		   (concat " (" login-name ")"))
-		  (t
-		   (concat " (" full-name ")")))
-	    )))
-
-(defun gnus-inews-login-name ()
-  "Return user login name.
-Got from the variable `gnus-user-login-name' and the function
-`user-login-name'."
-  (or gnus-user-login-name (user-login-name)))
-
-(defun gnus-inews-full-name ()
-  "Return user full name.
-Got from the variable `gnus-user-full-name', the environment variable
-NAME, and the function `user-full-name'."
-  (or gnus-user-full-name
-      (getenv "NAME") (user-full-name)))
-
-(defun gnus-inews-domain-name (&optional genericfrom)
-  "Return user's domain name.
-If optional argument GENERICFROM is a string, use it as the domain
-name; if it is non-nil, strip of local host name from the domain name.
-If the function `system-name' returns full internet name and the
-domain is undefined, the domain name is got from it."
-  (and (null gnus-local-domain)
-       (boundp 'gnus-your-domain)
-       (setq gnus-local-domain gnus-your-domain))
-  (if (or genericfrom gnus-local-domain (getenv "DOMAINNAME"))
-      (let ((domain (or (if (stringp genericfrom) genericfrom)
-			(getenv "DOMAINNAME")
-			gnus-local-domain
-			;; Function `system-name' may return full internet name.
-			;; Suggested by Mike DeCorte <[email protected]>.
-			(if (string-match "\\." (system-name))
-			    (substring (system-name) (match-end 0)))
-			(read-string "Domain name (no host): ")))
-	    (host (or (if (string-match "\\." (system-name))
-			  (substring (system-name) 0 (match-beginning 0)))
-		      (system-name))))
-	(if (string-equal "." (substring domain 0 1))
-	    (setq domain (substring domain 1)))
-	;; Support GENERICFROM as same as standard Bnews system.
-	;; Suggested by [email protected] and [email protected].
-	(cond ((null genericfrom)
-	       (concat host "." domain))
-	      ;;((stringp genericfrom) genericfrom)
-	      (t domain)))
-    (substring user-mail-address (1+ (string-match "@" user-mail-address)))))
-
-(defun gnus-inews-message-id ()
-  "Generate unique Message-ID for user."
-  ;; Message-ID should not contain a slash and should be terminated by
-  ;; a number.  I don't know the reason why it is so.
-  (concat "<" (gnus-inews-unique-id) "@" (gnus-inews-domain-name) ">"))
-
-(defun gnus-inews-unique-id ()
-  "Generate unique ID from user name and current time."
-  (let ((date (current-time-string))
-	(name (gnus-inews-login-name)))
-    (if (string-match "^[^ ]+ \\([^ ]+\\)[ ]+\\([0-9]+\\) \\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\) [0-9][0-9]\\([0-9][0-9]\\)"
-		      date)
-	(concat (upcase name) "."
-		(substring date (match-beginning 6) (match-end 6)) ;Year
-		(substring date (match-beginning 1) (match-end 1)) ;Month
-		(substring date (match-beginning 2) (match-end 2)) ;Day
-		(substring date (match-beginning 3) (match-end 3)) ;Hour
-		(substring date (match-beginning 4) (match-end 4)) ;Minute
-		(substring date (match-beginning 5) (match-end 5)) ;Second
-		)
-      (error "Cannot understand current-time-string: %s." date))
-    ))
-
-(defun gnus-current-time-zone (time)
-  "The local time zone in effect at TIME, or nil if not known."
-  (let ((z (and (fboundp 'current-time-zone) (current-time-zone time))))
-    (if (and z (car z)) z gnus-local-timezone)))
-
-(defun gnus-inews-date ()
-  "Date string of today.
-If `current-time-zone' works, or if `gnus-local-timezone' is set correctly,
-this yields a date that conforms to RFC 822.  Otherwise a buggy date will
-be generated; this might work with some older news servers."
-  (let* ((now (and (fboundp 'current-time) (current-time)))
-	 (zone (gnus-current-time-zone now)))
-    (if zone
-	(gnus-inews-valid-date now zone)
-      ;; No timezone info.
-      (gnus-inews-buggy-date now))))
-
-(defun gnus-inews-valid-date (&optional time zone)
-  "A date string that represents TIME and conforms to the Usenet standard.
-TIME is optional and defaults to the current time.
-Some older versions of Emacs always act as if TIME is nil.
-The optional argument ZONE specifies the local time zone (default GMT)."
-  (timezone-make-date-arpa-standard
-   (if (fboundp 'current-time)
-       (current-time-string time)
-     (current-time-string))
-   zone "GMT"))
-
-(defun gnus-inews-buggy-date (&optional time)
-  "A buggy date string that represents TIME.
-TIME is optional and defaults to the current time.
-Some older versions of Emacs always act as if TIME is nil."
-  (let ((date (if (fboundp 'current-time)
-		  (current-time-string time)
-		(current-time-string))))
-    (if (string-match "^[^ ]+ \\([^ ]+\\)[ ]+\\([0-9]+\\) \\([0-9:]+\\) [0-9][0-9]\\([0-9][0-9]\\)"
-		      date)
-	(concat (substring date (match-beginning 2) (match-end 2)) ;Day
-		" "
-		(substring date (match-beginning 1) (match-end 1)) ;Month
-		" "
-		(substring date (match-beginning 4) (match-end 4)) ;Year
-		" "
-		(substring date (match-beginning 3) (match-end 3))) ;Time
-      (error "Cannot understand current-time-string: %s." date))
-    ))
-
-(defun gnus-inews-organization ()
-  "Return user's organization.
-The ORGANIZATION environment variable is used if defined.
-If not, the variable gnus-local-organization is used instead.
-If the value begins with a slash, it is taken as the name of a file
-containing the organization."
-  ;; The organization must be got in this order since the ORGANIZATION
-  ;; environment variable is intended for user specific while
-  ;; gnus-local-organization is for machine or organization specific.
-
-  ;; Note: compatibility hack.  This will be removed in the next version.
-  (and (null gnus-local-organization)
-       (boundp 'gnus-your-organization)
-       (setq gnus-local-organization gnus-your-organization))
-  ;; End of compatibility hack.
-  (let* ((private-file (expand-file-name "~/.organization" nil))
-	 (organization (or (getenv "ORGANIZATION")
-			   gnus-local-organization
-			   private-file)))
-    (and (stringp organization)
-	 (> (length organization) 0)
-	 (string-equal (substring organization 0 1) "/")
-	 ;; Get it from the user and system file.
-	 ;; Suggested by [email protected] (Roland McGrath).
-	 (let ((dist (mail-fetch-field "distribution")))
-	   (setq organization
-		 (cond ((file-exists-p (concat organization "-" dist))
-			(concat organization "-" dist))
-		       ((file-exists-p organization) organization)
-		       ((file-exists-p gnus-organization-file)
-			gnus-organization-file)
-		       (t organization)))
-	   ))
-    (cond ((not (stringp organization)) nil)
-	  ((and (string-equal (substring organization 0 1) "/")
-		(file-exists-p organization))
-	   ;; If the first character is `/', assume it is the name of
-	   ;; a file containing the organization.
-	   (save-excursion
-	     (let ((tmpbuf (get-buffer-create " *GNUS organization*")))
-	       (set-buffer tmpbuf)
-	       (erase-buffer)
-	       (insert-file-contents organization)
-	       (prog1 (buffer-string)
-		 (kill-buffer tmpbuf))
-	       )))
-	  ((string-equal organization private-file) nil) ;No such file
-	  (t organization))
-    ))
-
-(defun gnus-inews-lines ()
-  "Count the number of lines and return numeric string."
-  (save-excursion
-    (save-restriction
-      (widen)
-      (goto-char (point-min))
-      (search-forward "\n\n" nil 'move)
-      (int-to-string (count-lines (point) (point-max))))))
-
-(provide 'gnuspost)
-
-;;; gnuspost.el ends here