Mercurial > emacs
annotate lisp/=gnuspost.el @ 2915:2c9dde3bd3a0
Initial revision
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Thu, 20 May 1993 02:04:15 +0000 |
parents | cd90d49526ae |
children | ba3e81f00939 |
rev | line source |
---|---|
660
08eb386dd0f3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
584
diff
changeset
|
1 ;;; gnuspost.el --- post news commands for GNUS newsreader |
08eb386dd0f3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
584
diff
changeset
|
2 |
2601
c6fef1c54d00
(gnus-inews-organization): If ORGANIZATION is "", set it to nil.
Roland McGrath <roland@gnu.org>
parents:
2571
diff
changeset
|
3 ;; Copyright (C) 1989, 1990, 1993 Free Software Foundation, Inc. |
846
20674ae6bf52
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
4 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
711
diff
changeset
|
5 ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> |
811
e694e0879463
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
807
diff
changeset
|
6 ;; Keywords: news |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
711
diff
changeset
|
7 |
267 | 8 ;; This file is part of GNU Emacs. |
9 | |
711
22b98190b7ef
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
660
diff
changeset
|
10 ;; GNU Emacs is free software; you can redistribute it and/or modify |
22b98190b7ef
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
660
diff
changeset
|
11 ;; it under the terms of the GNU General Public License as published by |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
711
diff
changeset
|
12 ;; the Free Software Foundation; either version 2, or (at your option) |
711
22b98190b7ef
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
660
diff
changeset
|
13 ;; any later version. |
267 | 14 |
711
22b98190b7ef
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
660
diff
changeset
|
15 ;; GNU Emacs is distributed in the hope that it will be useful, |
22b98190b7ef
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
660
diff
changeset
|
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
22b98190b7ef
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
660
diff
changeset
|
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
22b98190b7ef
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
660
diff
changeset
|
18 ;; GNU General Public License for more details. |
22b98190b7ef
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
660
diff
changeset
|
19 |
22b98190b7ef
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
660
diff
changeset
|
20 ;; You should have received a copy of the GNU General Public License |
22b98190b7ef
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
660
diff
changeset
|
21 ;; along with GNU Emacs; see the file COPYING. If not, write to |
22b98190b7ef
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
660
diff
changeset
|
22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. |
267 | 23 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
711
diff
changeset
|
24 ;;; Code: |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
711
diff
changeset
|
25 |
267 | 26 (require 'gnus) |
27 | |
28 (defvar gnus-organization-file "/usr/lib/news/organization" | |
29 "*Local news organization file.") | |
30 | |
31 (defvar gnus-post-news-buffer "*post-news*") | |
32 (defvar gnus-winconf-post-news nil) | |
33 | |
34 (autoload 'news-reply-mode "rnewspost") | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
35 (autoload 'timezone-make-date-arpa-standard "timezone") |
267 | 36 |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
37 ;;; Post news commands of GNUS Group Mode and Summary Mode |
267 | 38 |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
39 (defun gnus-group-post-news () |
267 | 40 "Post an article." |
41 (interactive) | |
42 ;; Save window configuration. | |
43 (setq gnus-winconf-post-news (current-window-configuration)) | |
44 (unwind-protect | |
45 (gnus-post-news) | |
46 (or (and (eq (current-buffer) (get-buffer gnus-post-news-buffer)) | |
47 (not (zerop (buffer-size)))) | |
48 ;; Restore last window configuration. | |
49 (set-window-configuration gnus-winconf-post-news))) | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
50 ;; We don't want to return to Summary buffer nor Article buffer later. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
51 (if (get-buffer gnus-summary-buffer) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
52 (bury-buffer gnus-summary-buffer)) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
53 (if (get-buffer gnus-article-buffer) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
54 (bury-buffer gnus-article-buffer))) |
267 | 55 |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
56 (defun gnus-summary-post-news () |
267 | 57 "Post an article." |
58 (interactive) | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
59 (gnus-summary-select-article t nil) |
267 | 60 ;; Save window configuration. |
61 (setq gnus-winconf-post-news (current-window-configuration)) | |
62 (unwind-protect | |
63 (progn | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
64 (switch-to-buffer gnus-article-buffer) |
267 | 65 (widen) |
66 (delete-other-windows) | |
67 (gnus-post-news)) | |
68 (or (and (eq (current-buffer) (get-buffer gnus-post-news-buffer)) | |
69 (not (zerop (buffer-size)))) | |
70 ;; Restore last window configuration. | |
71 (set-window-configuration gnus-winconf-post-news))) | |
72 ;; We don't want to return to Article buffer later. | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
73 (bury-buffer gnus-article-buffer)) |
267 | 74 |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
75 (defun gnus-summary-followup (yank) |
267 | 76 "Post a reply article. |
77 If prefix argument YANK is non-nil, original article is yanked automatically." | |
78 (interactive "P") | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
79 (gnus-summary-select-article t nil) |
267 | 80 ;; Check Followup-To: poster. |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
81 (set-buffer gnus-article-buffer) |
267 | 82 (if (and gnus-use-followup-to |
83 (string-equal "poster" (gnus-fetch-field "followup-to")) | |
84 (or (not (eq gnus-use-followup-to t)) | |
85 (not (y-or-n-p "Do you want to ignore `Followup-To: poster'? ")))) | |
86 ;; Mail to the poster. GNUS is now RFC1036 compliant. | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
87 (gnus-summary-reply yank) |
267 | 88 ;; Save window configuration. |
89 (setq gnus-winconf-post-news (current-window-configuration)) | |
90 (unwind-protect | |
91 (progn | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
92 (switch-to-buffer gnus-article-buffer) |
267 | 93 (widen) |
94 (delete-other-windows) | |
95 (gnus-news-reply yank)) | |
96 (or (and (eq (current-buffer) (get-buffer gnus-post-news-buffer)) | |
97 (not (zerop (buffer-size)))) | |
98 ;; Restore last window configuration. | |
99 (set-window-configuration gnus-winconf-post-news))) | |
100 ;; We don't want to return to Article buffer later. | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
101 (bury-buffer gnus-article-buffer))) |
267 | 102 |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
103 (defun gnus-summary-followup-with-original () |
267 | 104 "Post a reply article with original article." |
105 (interactive) | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
106 (gnus-summary-followup t)) |
267 | 107 |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
108 (defun gnus-summary-cancel-article () |
267 | 109 "Cancel an article you posted." |
110 (interactive) | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
111 (gnus-summary-select-article t nil) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
112 (gnus-eval-in-buffer-window gnus-article-buffer |
267 | 113 (gnus-cancel-news))) |
114 | |
115 | |
116 ;;; Post a News using NNTP | |
117 | |
118 ;;;###autoload | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
119 (fset 'sendnews 'gnus-post-news) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
120 |
267 | 121 ;;;###autoload |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
122 (fset 'postnews 'gnus-post-news) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
123 |
267 | 124 ;;;###autoload |
125 (defun gnus-post-news () | |
126 "Begin editing a new USENET news article to be posted. | |
127 Type \\[describe-mode] once editing the article to get a list of commands." | |
128 (interactive) | |
129 (if (or (not gnus-novice-user) | |
130 (y-or-n-p "Are you sure you want to post to all of USENET? ")) | |
131 (let ((artbuf (current-buffer)) | |
132 (newsgroups ;Default newsgroup. | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
133 (if (eq major-mode 'gnus-article-mode) gnus-newsgroup-name)) |
267 | 134 (subject nil) |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
135 ;; Get default distribution. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
136 (distribution (car gnus-local-distributions))) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
137 ;; Connect to NNTP server if not connected yet, and get |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
138 ;; several information. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
139 (if (not (gnus-server-opened)) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
140 (progn |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
141 (gnus-start-news-server t) ;Confirm server. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
142 (gnus-setup-news))) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
143 ;; Get current article information. |
267 | 144 (save-restriction |
145 (and (not (zerop (buffer-size))) | |
146 ;;(equal major-mode 'news-mode) | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
147 (equal major-mode 'gnus-article-mode) |
267 | 148 (progn |
149 ;;(news-show-all-headers) | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
150 (gnus-article-show-all-headers) |
267 | 151 (narrow-to-region (point-min) |
152 (progn (goto-char (point-min)) | |
153 (search-forward "\n\n") | |
154 (point))))) | |
155 (setq news-reply-yank-from (mail-fetch-field "from")) | |
156 (setq news-reply-yank-message-id (mail-fetch-field "message-id"))) | |
157 (pop-to-buffer gnus-post-news-buffer) | |
158 (news-reply-mode) | |
159 (gnus-overload-functions) | |
160 (if (and (buffer-modified-p) | |
161 (> (buffer-size) 0) | |
162 (not (y-or-n-p "Unsent article being composed; erase it? "))) | |
163 ;; Continue composition. | |
164 ;; Make news-reply-yank-original work on the current article. | |
165 (setq mail-reply-buffer artbuf) | |
166 (erase-buffer) | |
167 (if gnus-interactive-post | |
168 ;; Newsgroups, subject and distribution are asked for. | |
169 ;; Suggested by yuki@flab.fujitsu.junet. | |
170 (progn | |
171 ;; Subscribed newsgroup names are required for | |
172 ;; completing read of newsgroup. | |
173 (or gnus-newsrc-assoc | |
174 (gnus-read-newsrc-file)) | |
175 ;; Which do you like? (UMERIN) | |
176 ;; (setq newsgroups (read-string "Newsgroups: " "general")) | |
177 (or newsgroups ;Use the default newsgroup. | |
178 (setq newsgroups | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
179 (completing-read "Newsgroup: " |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
180 gnus-newsrc-assoc |
267 | 181 nil 'require-match |
182 newsgroups ;Default newsgroup. | |
183 ))) | |
184 (setq subject (read-string "Subject: ")) | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
185 ;; Choose a distribution from gnus-distribution-list. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
186 ;; completing-read should not be used with |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
187 ;; 'require-match functionality in order to allow use |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
188 ;; of unknow distribution. |
267 | 189 (setq distribution |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
190 (if (consp gnus-distribution-list) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
191 (completing-read "Distribution: " |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
192 gnus-distribution-list |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
193 nil nil ;Never 'require-match |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
194 distribution ;Default distribution. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
195 ) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
196 (read-string "Distribution: "))) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
197 ;; Empty string is okay. |
267 | 198 ;;(if (string-equal distribution "") |
199 ;; (setq distribution nil)) | |
200 )) | |
201 (news-setup () subject () newsgroups artbuf) | |
202 ;; Make sure the article is posted by GNUS. | |
203 ;;(mail-position-on-field "Posting-Software") | |
204 ;;(insert "GNUS: NNTP-based News Reader for GNU Emacs") | |
205 ;; Insert Distribution: field. | |
206 ;; Suggested by ichikawa@flab.fujitsu.junet. | |
207 (mail-position-on-field "Distribution") | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
208 (insert (or distribution "")) |
267 | 209 ;; Handle author copy using FCC field. |
210 (if gnus-author-copy | |
211 (progn | |
212 (mail-position-on-field "FCC") | |
213 (insert gnus-author-copy))) | |
214 (if gnus-interactive-post | |
215 ;; All fields are filled in. | |
216 (goto-char (point-max)) | |
217 ;; Move point to Newsgroup: field. | |
218 (goto-char (point-min)) | |
219 (end-of-line)) | |
220 )) | |
221 (message ""))) | |
222 | |
223 (defun gnus-news-reply (&optional yank) | |
224 "Compose and post a reply (aka a followup) to the current article on USENET. | |
225 While composing the followup, use \\[news-reply-yank-original] to yank the | |
226 original message into it." | |
227 (interactive) | |
228 (if (or (not gnus-novice-user) | |
229 (y-or-n-p "Are you sure you want to followup to all of USENET? ")) | |
230 (let (from cc subject date to followup-to newsgroups message-of | |
231 references distribution message-id | |
232 (artbuf (current-buffer))) | |
233 (save-restriction | |
234 (and (not (zerop (buffer-size))) | |
235 ;;(equal major-mode 'news-mode) | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
236 (equal major-mode 'gnus-article-mode) |
267 | 237 (progn |
238 ;; (news-show-all-headers) | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
239 (gnus-article-show-all-headers) |
267 | 240 (narrow-to-region (point-min) |
241 (progn (goto-char (point-min)) | |
242 (search-forward "\n\n") | |
243 (point))))) | |
244 (setq from (mail-fetch-field "from")) | |
245 (setq news-reply-yank-from from) | |
246 (setq subject (mail-fetch-field "subject")) | |
247 (setq date (mail-fetch-field "date")) | |
248 (setq followup-to (mail-fetch-field "followup-to")) | |
249 ;; Ignore Followup-To: poster. | |
250 (if (or (null gnus-use-followup-to) ;Ignore followup-to: field. | |
251 (string-equal "" followup-to) ;Bogus header. | |
252 (string-equal "poster" followup-to)) | |
253 (setq followup-to nil)) | |
254 (setq newsgroups (or followup-to (mail-fetch-field "newsgroups"))) | |
255 (setq references (mail-fetch-field "references")) | |
256 (setq distribution (mail-fetch-field "distribution")) | |
257 (setq message-id (mail-fetch-field "message-id")) | |
258 (setq news-reply-yank-message-id message-id)) | |
259 (pop-to-buffer gnus-post-news-buffer) | |
260 (news-reply-mode) | |
261 (gnus-overload-functions) | |
262 (if (and (buffer-modified-p) | |
263 (> (buffer-size) 0) | |
264 (not (y-or-n-p "Unsent article being composed; erase it? "))) | |
265 ;; Continue composition. | |
266 ;; Make news-reply-yank-original work on current article. | |
267 (setq mail-reply-buffer artbuf) | |
268 (erase-buffer) | |
269 (and subject | |
270 (setq subject | |
271 (concat "Re: " (gnus-simplify-subject subject 're-only)))) | |
272 (and from | |
273 (progn | |
274 (let ((stop-pos | |
275 (string-match " *at \\| *@ \\| *(\\| *<" from))) | |
276 (setq message-of | |
277 (concat | |
278 (if stop-pos (substring from 0 stop-pos) from) | |
279 "'s message of " | |
280 date))))) | |
281 (news-setup nil subject message-of newsgroups artbuf) | |
282 (if followup-to | |
283 (progn (news-reply-followup-to) | |
284 (insert followup-to))) | |
285 ;; Fold long references line to follow RFC1036. | |
286 (mail-position-on-field "References") | |
287 (let ((begin (point)) | |
288 (fill-column 79) | |
289 (fill-prefix "\t")) | |
290 (if references | |
291 (insert references)) | |
292 (if (and references message-id) | |
293 (insert " ")) | |
294 (if message-id | |
295 (insert message-id)) | |
296 ;; The region must end with a newline to fill the region | |
297 ;; without inserting extra newline. | |
298 (fill-region-as-paragraph begin (1+ (point)))) | |
299 ;; Make sure the article is posted by GNUS. | |
300 ;;(mail-position-on-field "Posting-Software") | |
301 ;;(insert "GNUS: NNTP-based News Reader for GNU Emacs") | |
302 ;; Distribution must be the same as original article. | |
303 (mail-position-on-field "Distribution") | |
304 (insert (or distribution "")) | |
305 ;; Handle author copy using FCC field. | |
306 (if gnus-author-copy | |
307 (progn | |
308 (mail-position-on-field "FCC") | |
309 (insert gnus-author-copy))) | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
310 ;; Insert To: FROM field, which is expected to mail the |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
311 ;; message to the author of the article too. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
312 (if (and gnus-auto-mail-to-author from) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
313 (progn |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
314 (goto-char (point-min)) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
315 (insert "To: " from "\n"))) |
267 | 316 (goto-char (point-max))) |
317 ;; Yank original article automatically. | |
318 (if yank | |
319 (let ((last (point))) | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
320 ;;(goto-char (point-max)) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
321 ;; Insert at current point. |
267 | 322 (news-reply-yank-original nil) |
323 (goto-char last))) | |
324 ) | |
325 (message ""))) | |
326 | |
327 (defun gnus-inews-news () | |
328 "Send a news message." | |
329 (interactive) | |
330 (let* ((case-fold-search nil) | |
331 (server-running (gnus-server-opened))) | |
332 (save-excursion | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
333 ;; Connect to default NNTP server if necessary. |
267 | 334 ;; Suggested by yuki@flab.fujitsu.junet. |
335 (gnus-start-news-server) ;Use default server. | |
336 ;; NNTP server must be opened before current buffer is modified. | |
337 (widen) | |
338 (goto-char (point-min)) | |
339 (run-hooks 'news-inews-hook) | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
340 ;; Mail the message too if To: or Cc: exists. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
341 (if (save-restriction |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
342 (narrow-to-region |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
343 (point-min) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
344 (progn |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
345 (goto-char (point-min)) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
346 (search-forward (concat "\n" mail-header-separator "\n")) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
347 (point))) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
348 (or (mail-fetch-field "to" nil t) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
349 (mail-fetch-field "cc" nil t))) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
350 (if gnus-mail-send-method |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
351 (progn |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
352 (message "Sending via mail...") |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
353 (funcall gnus-mail-send-method) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
354 (message "Sending via mail... done")) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
355 (ding) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
356 (message "No mailer defined. To: and/or Cc: fields ignored.") |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
357 (sit-for 1))) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
358 ;; Send to NNTP server. |
267 | 359 (message "Posting to USENET...") |
360 (if (gnus-inews-article) | |
361 (message "Posting to USENET... done") | |
362 ;; We cannot signal an error. | |
363 (ding) (message "Article rejected: %s" (gnus-status-message))) | |
364 (set-buffer-modified-p nil)) | |
365 ;; If NNTP server is opened by gnus-inews-news, close it by myself. | |
366 (or server-running | |
367 (gnus-close-server)) | |
368 (and (fboundp 'bury-buffer) (bury-buffer)) | |
369 ;; Restore last window configuration. | |
370 (and gnus-winconf-post-news | |
371 (set-window-configuration gnus-winconf-post-news)) | |
372 (setq gnus-winconf-post-news nil) | |
373 )) | |
374 | |
375 (defun gnus-cancel-news () | |
376 "Cancel an article you posted." | |
377 (interactive) | |
378 (if (yes-or-no-p "Do you really want to cancel this article? ") | |
379 (let ((from nil) | |
380 (newsgroups nil) | |
381 (message-id nil) | |
382 (distribution nil)) | |
383 (save-excursion | |
384 ;; Get header info. from original article. | |
385 (save-restriction | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
386 (gnus-article-show-all-headers) |
267 | 387 (goto-char (point-min)) |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
388 (search-forward "\n\n" nil 'move) |
267 | 389 (narrow-to-region (point-min) (point)) |
390 (setq from (mail-fetch-field "from")) | |
391 (setq newsgroups (mail-fetch-field "newsgroups")) | |
392 (setq message-id (mail-fetch-field "message-id")) | |
393 (setq distribution (mail-fetch-field "distribution"))) | |
394 ;; Verify if the article is absolutely user's by comparing | |
395 ;; user id with value of its From: field. | |
396 (if (not | |
397 (string-equal | |
398 (downcase (mail-strip-quoted-names from)) | |
399 (downcase (mail-strip-quoted-names (gnus-inews-user-name))))) | |
400 (progn | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
401 (ding) (message "This article is not yours.")) |
267 | 402 ;; Make control article. |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
403 (set-buffer (get-buffer-create " *GNUS-canceling*")) |
267 | 404 (buffer-flush-undo (current-buffer)) |
405 (erase-buffer) | |
406 (insert "Newsgroups: " newsgroups "\n" | |
407 "Subject: cancel " message-id "\n" | |
408 "Control: cancel " message-id "\n" | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
409 ;; We should not use the first value of |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
410 ;; `gnus-distribution-list' as default value, |
267 | 411 ;; because distribution must be as same as original |
412 ;; article. | |
413 "Distribution: " (or distribution "") "\n" | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
414 mail-header-separator "\n" |
267 | 415 ) |
416 ;; Send the control article to NNTP server. | |
417 (message "Canceling your article...") | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
418 (if (gnus-inews-article) |
267 | 419 (message "Canceling your article... done") |
420 (ding) (message "Failed to cancel your article")) | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
421 ;; Kill the article buffer. |
267 | 422 (kill-buffer (current-buffer)) |
423 ))) | |
424 )) | |
425 | |
426 | |
427 ;;; Lowlevel inews interface | |
428 | |
429 (defun gnus-inews-article () | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
430 "Post an article in current buffer using NNTP protocol." |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
431 (let ((artbuf (current-buffer)) |
267 | 432 (tmpbuf (get-buffer-create " *GNUS-posting*"))) |
433 (save-excursion | |
434 (set-buffer tmpbuf) | |
435 (buffer-flush-undo (current-buffer)) | |
436 (erase-buffer) | |
437 (insert-buffer-substring artbuf) | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
438 ;; Remove the header separator. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
439 (goto-char (point-min)) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
440 (search-forward (concat "\n" mail-header-separator "\n")) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
441 (replace-match "\n\n") |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
442 (goto-char (point-max)) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
443 ;; require a newline at the end for inews to append .signature to |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
444 (or (= (preceding-char) ?\n) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
445 (insert ?\n)) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
446 ;; This hook may insert a signature. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
447 (run-hooks 'gnus-prepare-article-hook) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
448 ;; Prepare article headers. All message body such as signature |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
449 ;; must be inserted before Lines: field is prepared. |
267 | 450 (save-restriction |
451 (goto-char (point-min)) | |
452 (search-forward "\n\n") | |
453 (narrow-to-region (point-min) (point)) | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
454 (gnus-inews-insert-headers)) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
455 ;; Run final inews hooks. This hook may do FCC. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
456 ;; The article must be saved before being posted because |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
457 ;; `gnus-request-post' modifies the buffer. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
458 (run-hooks 'gnus-inews-article-hook) |
267 | 459 ;; Post an article to NNTP server. |
460 ;; Return NIL if post failed. | |
461 (prog1 | |
462 (gnus-request-post) | |
463 (kill-buffer (current-buffer))) | |
464 ))) | |
465 | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
466 (defun gnus-inews-insert-headers () |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
467 "Prepare article headers. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
468 Fields already prepared in the buffer are not modified. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
469 Fields in gnus-required-headers will be generated." |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
470 (save-excursion |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
471 (let ((date (gnus-inews-date)) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
472 (message-id (gnus-inews-message-id)) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
473 (organization (gnus-inews-organization))) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
474 (goto-char (point-min)) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
475 (or (mail-fetch-field "path") |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
476 (and (memq 'Path gnus-required-headers) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
477 (insert "Path: " (gnus-inews-path) "\n"))) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
478 (or (mail-fetch-field "from") |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
479 (and (memq 'From gnus-required-headers) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
480 (insert "From: " (gnus-inews-user-name) "\n"))) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
481 ;; If there is no subject, make Subject: field. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
482 (or (mail-fetch-field "subject") |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
483 (and (memq 'Subject gnus-required-headers) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
484 (insert "Subject: \n"))) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
485 ;; If there is no newsgroups, make Newsgroups: field. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
486 (or (mail-fetch-field "newsgroups") |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
487 (and (memq 'Newsgroups gnus-required-headers) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
488 (insert "Newsgroups: \n"))) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
489 (or (mail-fetch-field "message-id") |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
490 (and message-id |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
491 (memq 'Message-ID gnus-required-headers) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
492 (insert "Message-ID: " message-id "\n"))) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
493 (or (mail-fetch-field "date") |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
494 (and date |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
495 (memq 'Date gnus-required-headers) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
496 (insert "Date: " date "\n"))) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
497 ;; Optional fields in RFC977 and RFC1036 |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
498 (or (mail-fetch-field "organization") |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
499 (and organization |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
500 (memq 'Organization gnus-required-headers) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
501 (let ((begin (point)) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
502 (fill-column 79) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
503 (fill-prefix "\t")) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
504 (insert "Organization: " organization "\n") |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
505 (fill-region-as-paragraph begin (point))))) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
506 (or (mail-fetch-field "distribution") |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
507 (and (memq 'Distribution gnus-required-headers) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
508 (insert "Distribution: \n"))) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
509 (or (mail-fetch-field "lines") |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
510 (and (memq 'Lines gnus-required-headers) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
511 (insert "Lines: " (gnus-inews-lines) "\n"))) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
512 ))) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
513 |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
514 |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
515 ;; Utility functions. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
516 |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
517 (defun gnus-inews-insert-signature () |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
518 "Insert signature file in current article buffer. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
519 If there is a file named .signature-DISTRIBUTION, it is used instead |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
520 of usual .signature when the distribution of the article is |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
521 DISTRIBUTION. Set the variable to nil to prevent appending the |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
522 signature file automatically. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
523 Signature file is specified by the variable gnus-signature-file." |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
524 (save-excursion |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
525 (save-restriction |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
526 ;; Change signature file by distribution. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
527 ;; Suggested by hyoko@flab.fujitsu.co.jp. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
528 (let ((signature |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
529 (if gnus-signature-file |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
530 (expand-file-name gnus-signature-file nil))) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
531 (distribution nil)) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
532 (goto-char (point-min)) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
533 (search-forward "\n\n") |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
534 (narrow-to-region (point-min) (point)) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
535 (setq distribution (mail-fetch-field "distribution")) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
536 (widen) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
537 (if signature |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
538 (progn |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
539 (if (file-exists-p (concat signature "-" distribution)) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
540 (setq signature (concat signature "-" distribution))) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
541 ;; Insert signature. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
542 (if (file-exists-p signature) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
543 (progn |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
544 (goto-char (point-max)) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
545 (insert "--\n") |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
546 (insert-file-contents signature))) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
547 )))))) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
548 |
267 | 549 (defun gnus-inews-do-fcc () |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
550 "Process FCC: fields in current article buffer. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
551 Unless the first character of the field is `|', the article is saved |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
552 to the specified file using the function specified by the variable |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
553 gnus-author-copy-saver. The default function rmail-output saves in |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
554 Unix mailbox format. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
555 If the first character is `|', the contents of the article is send to |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
556 a program specified by the rest of the value." |
267 | 557 (let ((fcc-list nil) |
558 (fcc-file nil) | |
559 (case-fold-search t)) ;Should ignore case. | |
560 (save-excursion | |
561 (save-restriction | |
562 (goto-char (point-min)) | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
563 (search-forward "\n\n") |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
564 (narrow-to-region (point-min) (point)) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
565 (goto-char (point-min)) |
267 | 566 (while (re-search-forward "^FCC:[ \t]*" nil t) |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
567 (setq fcc-list |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
568 (cons (buffer-substring |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
569 (point) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
570 (progn |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
571 (end-of-line) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
572 (skip-chars-backward " \t") |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
573 (point))) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
574 fcc-list)) |
267 | 575 (delete-region (match-beginning 0) |
576 (progn (forward-line 1) (point)))) | |
577 ;; Process FCC operations. | |
578 (widen) | |
579 (while fcc-list | |
580 (setq fcc-file (car fcc-list)) | |
581 (setq fcc-list (cdr fcc-list)) | |
582 (cond ((string-match "^[ \t]*|[ \t]*\\(.*\\)[ \t]*$" fcc-file) | |
583 (let ((program (substring fcc-file | |
584 (match-beginning 1) (match-end 1)))) | |
585 ;; Suggested by yuki@flab.fujitsu.junet. | |
586 ;; Send article to named program. | |
587 (call-process-region (point-min) (point-max) shell-file-name | |
588 nil nil nil "-c" program) | |
589 )) | |
590 (t | |
591 ;; Suggested by hyoko@flab.fujitsu.junet. | |
592 ;; Save article in Unix mail format by default. | |
593 (funcall (or gnus-author-copy-saver 'rmail-output) fcc-file) | |
594 )) | |
595 ) | |
596 )) | |
597 )) | |
598 | |
599 (defun gnus-inews-path () | |
600 "Return uucp path." | |
601 (let ((login-name (gnus-inews-login-name))) | |
602 (cond ((null gnus-use-generic-path) | |
603 (concat gnus-nntp-server "!" login-name)) | |
604 ((stringp gnus-use-generic-path) | |
605 ;; Support GENERICPATH. Suggested by vixie@decwrl.dec.com. | |
606 (concat gnus-use-generic-path "!" login-name)) | |
607 (t login-name)) | |
608 )) | |
609 | |
610 (defun gnus-inews-user-name () | |
611 "Return user's network address as `NAME@DOMAIN (FULL NAME)'." | |
612 (let ((login-name (gnus-inews-login-name)) | |
613 (full-name (gnus-inews-full-name))) | |
614 (concat login-name "@" (gnus-inews-domain-name gnus-use-generic-from) | |
615 ;; User's full name. | |
616 (cond ((string-equal full-name "") "") | |
617 ((string-equal full-name "&") ;Unix hack. | |
618 (concat " (" login-name ")")) | |
619 (t | |
620 (concat " (" full-name ")"))) | |
621 ))) | |
622 | |
623 (defun gnus-inews-login-name () | |
624 "Return user login name. | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
625 Got from the variable gnus-user-login-name, the environment variables |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
626 USER and LOGNAME, and the function user-login-name." |
267 | 627 (or gnus-user-login-name |
628 (getenv "USER") (getenv "LOGNAME") (user-login-name))) | |
629 | |
630 (defun gnus-inews-full-name () | |
631 "Return user full name. | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
632 Got from the variable gnus-user-full-name, the environment variable |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
633 NAME, and the function user-full-name." |
267 | 634 (or gnus-user-full-name |
635 (getenv "NAME") (user-full-name))) | |
636 | |
637 (defun gnus-inews-domain-name (&optional genericfrom) | |
638 "Return user's domain name. | |
639 If optional argument GENERICFROM is a string, use it as the domain | |
640 name; if it is non-nil, strip of local host name from the domain name. | |
641 If the function `system-name' returns full internet name and the | |
642 domain is undefined, the domain name is got from it." | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
643 ;; Note: compatibility hack. This will be removed in the next version. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
644 (and (null gnus-local-domain) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
645 (boundp 'gnus-your-domain) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
646 (setq gnus-local-domain gnus-your-domain)) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
647 ;; End of compatibility hack. |
267 | 648 (let ((domain (or (if (stringp genericfrom) genericfrom) |
649 (getenv "DOMAINNAME") | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
650 gnus-local-domain |
267 | 651 ;; Function `system-name' may return full internet name. |
652 ;; Suggested by Mike DeCorte <mrd@sun.soe.clarkson.edu>. | |
653 (if (string-match "\\." (system-name)) | |
654 (substring (system-name) (match-end 0))) | |
655 (read-string "Domain name (no host): "))) | |
656 (host (or (if (string-match "\\." (system-name)) | |
657 (substring (system-name) 0 (match-beginning 0))) | |
658 (system-name)))) | |
659 (if (string-equal "." (substring domain 0 1)) | |
660 (setq domain (substring domain 1))) | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
661 (if (null gnus-local-domain) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
662 (setq gnus-local-domain domain)) |
267 | 663 ;; Support GENERICFROM as same as standard Bnews system. |
664 ;; Suggested by ohm@kaba.junet and vixie@decwrl.dec.com. | |
665 (cond ((null genericfrom) | |
666 (concat host "." domain)) | |
667 ;;((stringp genericfrom) genericfrom) | |
668 (t domain)) | |
669 )) | |
670 | |
671 (defun gnus-inews-message-id () | |
672 "Generate unique Message-ID for user." | |
673 ;; Message-ID should not contain a slash and should be terminated by | |
674 ;; a number. I don't know the reason why it is so. | |
675 (concat "<" (gnus-inews-unique-id) "@" (gnus-inews-domain-name) ">")) | |
676 | |
677 (defun gnus-inews-unique-id () | |
678 "Generate unique ID from user name and current time." | |
679 (let ((date (current-time-string)) | |
680 (name (gnus-inews-login-name))) | |
681 (if (string-match "^[^ ]+ \\([^ ]+\\)[ ]+\\([0-9]+\\) \\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\) [0-9][0-9]\\([0-9][0-9]\\)" | |
682 date) | |
683 (concat (upcase name) "." | |
684 (substring date (match-beginning 6) (match-end 6)) ;Year | |
685 (substring date (match-beginning 1) (match-end 1)) ;Month | |
686 (substring date (match-beginning 2) (match-end 2)) ;Day | |
687 (substring date (match-beginning 3) (match-end 3)) ;Hour | |
688 (substring date (match-beginning 4) (match-end 4)) ;Minute | |
689 (substring date (match-beginning 5) (match-end 5)) ;Second | |
690 ) | |
691 (error "Cannot understand current-time-string: %s." date)) | |
692 )) | |
693 | |
694 (defun gnus-inews-date () | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
695 "Date string of today. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
696 If the variable gnus-local-timezone is non-nil, valid date will be |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
697 generated in terms of RFC822. Otherwise, buggy date in which time |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
698 zone is ignored will be generated. If you are using with Cnews, you |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
699 must use valid date." |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
700 (cond (gnus-local-timezone |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
701 ;; Gnus can generate valid date. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
702 (gnus-inews-valid-date)) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
703 (t |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
704 ;; No timezone info. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
705 (gnus-inews-buggy-date)) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
706 )) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
707 |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
708 (defun gnus-inews-valid-date () |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
709 "Date string of today represented in GMT. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
710 Local timezone is specified by the variable gnus-local-timezone." |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
711 (timezone-make-date-arpa-standard |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
712 (current-time-string) gnus-local-timezone "GMT")) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
713 |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
714 (defun gnus-inews-buggy-date () |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
715 "Buggy date string of today. Time zone is ignored, but fast." |
267 | 716 ;; Insert buggy date (time zone is ignored), but I don't worry about |
717 ;; it since inews will rewrite it. | |
718 (let ((date (current-time-string))) | |
719 (if (string-match "^[^ ]+ \\([^ ]+\\)[ ]+\\([0-9]+\\) \\([0-9:]+\\) [0-9][0-9]\\([0-9][0-9]\\)" | |
720 date) | |
721 (concat (substring date (match-beginning 2) (match-end 2)) ;Day | |
722 " " | |
723 (substring date (match-beginning 1) (match-end 1)) ;Month | |
724 " " | |
725 (substring date (match-beginning 4) (match-end 4)) ;Year | |
726 " " | |
727 (substring date (match-beginning 3) (match-end 3))) ;Time | |
728 (error "Cannot understand current-time-string: %s." date)) | |
729 )) | |
730 | |
731 (defun gnus-inews-organization () | |
732 "Return user's organization. | |
733 The ORGANIZATION environment variable is used if defined. | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
734 If not, the variable gnus-local-organization is used instead. |
267 | 735 If the value begins with a slash, it is taken as the name of a file |
736 containing the organization." | |
737 ;; The organization must be got in this order since the ORGANIZATION | |
738 ;; environment variable is intended for user specific while | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
739 ;; gnus-local-organization is for machine or organization specific. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
740 |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
741 ;; Note: compatibility hack. This will be removed in the next version. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
742 (and (null gnus-local-organization) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
743 (boundp 'gnus-your-organization) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
744 (setq gnus-local-organization gnus-your-organization)) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
745 ;; End of compatibility hack. |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
746 (let* ((private-file (expand-file-name "~/.organization" nil)) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
747 (organization (or (getenv "ORGANIZATION") |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
748 gnus-local-organization |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
749 private-file))) |
267 | 750 (and (stringp organization) |
751 (string-equal (substring organization 0 1) "/") | |
752 ;; Get it from the user and system file. | |
753 ;; Suggested by roland@wheaties.ai.mit.edu (Roland McGrath). | |
754 (let ((dist (mail-fetch-field "distribution"))) | |
755 (setq organization | |
756 (cond ((file-exists-p (concat organization "-" dist)) | |
757 (concat organization "-" dist)) | |
758 ((file-exists-p organization) organization) | |
759 ((file-exists-p gnus-organization-file) | |
760 gnus-organization-file) | |
761 (t organization))) | |
762 )) | |
763 (cond ((not (stringp organization)) nil) | |
764 ((and (string-equal (substring organization 0 1) "/") | |
765 (file-exists-p organization)) | |
766 ;; If the first character is `/', assume it is the name of | |
767 ;; a file containing the organization. | |
768 (save-excursion | |
769 (let ((tmpbuf (get-buffer-create " *GNUS organization*"))) | |
770 (set-buffer tmpbuf) | |
771 (erase-buffer) | |
772 (insert-file-contents organization) | |
773 (prog1 (buffer-string) | |
774 (kill-buffer tmpbuf)) | |
775 ))) | |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
776 ((string-equal organization private-file) nil) ;No such file |
267 | 777 (t organization)) |
778 )) | |
584 | 779 |
2843
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
780 (defun gnus-inews-lines () |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
781 "Count the number of lines and return numeric string." |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
782 (save-excursion |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
783 (save-restriction |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
784 (widen) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
785 (goto-char (point-min)) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
786 (search-forward "\n\n" nil 'move) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
787 (int-to-string (count-lines (point) (point-max)))))) |
cd90d49526ae
Version 3.15 from Umeda.
Richard M. Stallman <rms@gnu.org>
parents:
2601
diff
changeset
|
788 |
584 | 789 (provide 'gnuspost) |
660
08eb386dd0f3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
584
diff
changeset
|
790 |
08eb386dd0f3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
584
diff
changeset
|
791 ;;; gnuspost.el ends here |