🚀 go-pugleaf

$BEDCf!w$U8&$G$9!#(J

In article <NOZAKA.92Dec16195327@jrdzzz.jrd.dec.com>
	nozaka@jrdzzz.jrd.dec.com (Masaki Nozaka) writes:

 >~/.signature+news.group.name
 >	      ^$B$3$NItJ,$O(J '+' $B$G$9!#(J
 > 
 >$B$H$$$&%U%!%$%k$r(J news.group.name $B$H$$$&%K%e!<%9%0%k!<%W$KBP$9$k(J 
 >signature $B$K$9$k%Q%C%A$G$9!#3:(J$BEv$9$k4X?t$rC5$7$F!"CV$-49$($k$+!"(J
 >gnus $B$,%m!<%I$5$l$?$"$H$G!"$3$C$A$N4X?t$r%*!<%P%i%$%I$9$k$h$&$K!"(J
 >$B%m!<%I$9$k$+$7$F$/$@$5$$!#(J

$BNO:n$C$9$M!#KM$J$s$+<jH4$-$G!"$3$s$J$s=q$-$^$7$?!#(J

----------CutHere--------------CutHere--------------CutHere----------
(defun gnus-inews-article ()
  "NNTP inews interface."
  (let ((signature
	 (if gnus-signature-file
	     (expand-file-name gnus-signature-file nil)))
	(distribution nil)
+	(newsgroups nil)
	(artbuf (current-buffer))
	(tmpbuf (get-buffer-create " *GNUS-posting*")))
    (save-excursion
      (set-buffer tmpbuf)
      (buffer-flush-undo (current-buffer))
      (erase-buffer)
      (insert-buffer-substring artbuf)
      ;; Get distribution.
      (save-restriction
	(goto-char (point-min))
	(search-forward "\n\n")
	(narrow-to-region (point-min) (point))
+	(setq distribution (mail-fetch-field "newsgroups"))
	(setq distribution (mail-fetch-field "distribution")))
      (widen)
      (if signature
	  (progn
	    ;; Change signature file by distribution.
	    ;; Suggested by hyoko@flab.fujitsu.junet.
+	    (if (file-exists-p (concat signature "-" newsgroups))
+		(setq signature (concat signature "-" newsgroups))
	    (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)))
	    ))
      ;; Prepare article headers.
      (save-restriction
	(goto-char (point-min))
	(search-forward "\n\n")
	(narrow-to-region (point-min) (point))
	(gnus-inews-insert-headers)
	;; Save author copy of posted article. The article must be
	;;  copied before being posted because `gnus-request-post'
	;;  modifies the buffer.
	(let ((case-fold-search t))
	  ;; Find and handle any FCC fields.
	  (goto-char (point-min))
	  (if (re-search-forward "^FCC:" nil t)
	      (gnus-inews-do-fcc))))
      (widen)
      ;; Run final inews hooks.
      (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)))
      )))
----------CutHere--------------CutHere--------------CutHere----------

$B%/%m%9%]%9%H$5$l$?5-;v$N>l9g$OL5;k$5$l$^$9!#(J
--
Simple is BEST. (^-^)
			$BIY;NDL8&5f=j(J
			$BEDCf(J   $B9((J
			tanaka@flab.fujitsu.CO.JP