Newsgroups: fj.editor.emacs
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!sh.wide!wnoc-kyo-news!kuis-news!kudpc!news.nca5.ad.jp!icews5!toro.ishikawa-nct.ac.jp!kunimune
From: kunimune@i.ishikawa-nct.ac.jp (Hisayosi Kunimune)
Subject: Re: [GNUS] How to select .signature-*.
In-Reply-To: kunimune@i.ishikawa-nct.ac.jp's message of Mon, 4 Jul 1994 10:47:54 GMT
Message-ID: <KUNIMUNE.94Jul6172945@news3.i.ishikawa-nct.ac.jp>
Sender: usenet@ishikawa-nct.ac.jp (Usenet News System)
Nntp-Posting-Host: news3.i.ishikawa-nct.ac.jp
Organization: Ishikawa National College of Technology
References: <KUNIMUNE.94Jul4194755@news2.i.ishikawa-nct.ac.jp>
Distribution: fj
Date: Wed, 6 Jul 1994 08:29:45 GMT
Lines: 87
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:4801
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=4801&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

$BT"=!!w@P@n9b@l$H?=$7$^$9!#<+8J%U%)%m!<$G$9!#(B

In article <KUNIMUNE.94Jul4194755@news2.i.ishikawa-nct.ac.jp> kunimune@i.ishikawa-nct.ac.jp (Hisayosi Kunimune) writes:
>  $B#G#N#U#S$G%7%0%M%A%c!<$r!"Ej9F$9$k%K%e!<%9%0%k!<%W$K$h$C$FJQ$($kJ}K!$r(B
>  $B65$($F2<$5$$!#Nc$($P!"(B
$B!J8eN,!K(B

$B$H$$$&5-;v$KBP$7$F!"<r0f(B $B@6N4(B(ksakai@mtl.t.u-tokyo.ac.jp)$BMM$h$j!"2<$N(B
$B$h$&$J%a!<%k$rD:$-$^$7$?!#(B

--$B0zMQ$3$3$+$i(B--
$B!JA0N,!K(B
gnus-4.1 $B$G$"$l$PKM$NM'C#$,:n$C$?$b$N$,$"$j$^$9!#0J2<$N%Q%C%A$r(B 
gnuspost.el $B$KEv$F$F2<$5$$!#(Bgnus-3.14.1 $B$G$b4JC1$JJQ99$G$G$-$k$H(B
$B;W$$$^$9!#$J$*!"$3$N%Q%C%A$G$O(B .signature-<distribution> $B$H6&B8(B
$B$G$-$k$h$&$K!"(B.signature+<newsgroup> $B$rC5$9$h$&$K$7$F$$$^$9!#(B
                        ^
$B!JCfN,!K(B

*** gnuspost.el.origMon Sep 27 19:25:10 1993
--- gnuspost.elSat Oct  9 02:11:47 1993
***************
*** 529,544 ****
        (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
--- 529,556 ----
        (let ((signature
       (if gnus-signature-file
   (expand-file-name gnus-signature-file nil)))
!     (distribution nil)
!     (newsgroups nil))
  (goto-char (point-min))
  (search-forward "\n\n")
  (narrow-to-region (point-min) (point))
  (setq distribution (mail-fetch-field "distribution"))
+ (setq newsgroups (mail-fetch-field "newsgroups"))
+ (let ((pos (string-match "," newsgroups)))
+   (setq newsgroups (substring newsgroups 0 pos)))
  (widen)
  (if signature
      (progn
!       (let ((signature-ng nil))
! (while (not (or signature-ng (string-equal newsgroups "")))
!   (if (file-exists-p (concat signature "+" newsgroups))
!       (setq signature-ng (concat signature "+" newsgroups))
!     (let ((pos (string-match "[^\\.]*$" newsgroups)))
!       (setq newsgroups
!     (substring newsgroups 0 (max 0 (1- pos)))))))
! (cond (signature-ng (setq signature signature-ng))
!       ((file-exists-p (concat signature "-" distribution))
!        (setq signature (concat signature "-" distribution)))))
        ;; Insert signature.
        (if (file-exists-p signature)
    (progn

--$B0zMQ$3$3$^$G(B--

$B>e$N%Q%C%A$rEv$F$k$3$H$K$h$C$F0zMQ$7$?Cf$K=q$$$F$"$k$h$&$J%7%0%M%A%c!<(B
$B$NA*Br$,$G$-$^$7$?!#$?$@$7!"(BGNUS$B$O$$$$5!2q$@$C$?$N$G(B4.1$B$KJQ$($^$7$?!#(B

$B$J$*!"$3$N%Q%C%A$r=q$+$l$?Gr@PCNG7(B(tshira@mtl.t.u-tokyo.ac.jp)$BMM$K0zMQ(B
$B$N5v2D$OD:$-$^$7$?!#(B

$BK\Ev$K$"$j$,$H$&$4$6$$$^$7$?!#(B
--

--
+---------------------------+---------------------------------------------+
| |~| |~\  |~| /~~~\~~|~|~~ | $B9qN)@P@n9)6H9bEy@lLg3X9;(B $BEE;R>pJs9)3X2J#4G/(B |
| | | | |\ | |/ /~~~  | |   |   Ishikawa National College of Technology   |
| | | | | \| |\ \___  | |   |        $BT"=!(B $B1J2B(B($B$/$K$`$M!&$R$5$h$7(B)        |
| |_| |_|  \_| \___/  |_|   |        kunimune@i.ishikawa-nct.ac.jp        |
+---------------------------+---------------------------------------------+
