Mercurial > hg > xemacs-beta

comparison lisp/gnus/nndraft.el @ 16:0293115a14e9 r19-15b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b91
author cvs
date Mon, 13 Aug 2007 08:49:20 +0200
parents 376386a54a3c
children ec9a17fef872
comparison
equal deleted inserted replaced
15:ad457d5f7d04 16:0293115a14e9
1 ;;; nndraft.el --- draft article access for Gnus 1 ;;; nndraft.el --- draft article access for Gnus
2 ;; Copyright (C) 1995,96 Free Software Foundation, Inc. 2 ;; Copyright (C) 1995,96,97 Free Software Foundation, Inc.
3 3
4 ;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no> 4 ;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
5 ;; Keywords: news 5 ;; Keywords: news
6 6
7 ;; This file is part of GNU Emacs. 7 ;; This file is part of GNU Emacs.
201 gart)) 201 gart))
202 202
203 (deffoo nndraft-close-group (group &optional server) 203 (deffoo nndraft-close-group (group &optional server)
204 t) 204 t)
205 205
206 (deffoo nndraft-request-create-group (group &optional server) 206 (deffoo nndraft-request-create-group (group &optional server args)
207 (if (file-exists-p nndraft-directory) 207 (if (file-exists-p nndraft-directory)
208 (if (file-directory-p nndraft-directory) 208 (if (file-directory-p nndraft-directory)
209 t 209 t
210 nil) 210 nil)
211 (condition-case () 211 (condition-case ()
212 (progn 212 (progn
213 (make-directory nndraft-directory t) 213 (gnus-make-directory nndraft-directory)
214 t) 214 t)
215 (file-error nil)))) 215 (file-error nil))))
216 216
217 217
218 ;;; Low-Level Interface 218 ;;; Low-Level Interface
219 219
220 (defun nndraft-execute-nnmh-command (command) 220 (defun nndraft-execute-nnmh-command (command)
221 (let ((dir (expand-file-name nndraft-directory))) 221 (let ((dir (expand-file-name nndraft-directory)))
222 (and (string-match "/$" dir) 222 (when (string-match "/$" dir)
223 (setq dir (substring dir 0 (match-beginning 0)))) 223 (setq dir (substring dir 0 (match-beginning 0))))
224 (string-match "/[^/]+$" dir) 224 (string-match "/[^/]+$" dir)
225 (let ((group (substring dir (1+ (match-beginning 0)))) 225 (let ((group (substring dir (1+ (match-beginning 0))))
226 (nnmh-directory (substring dir 0 (1+ (match-beginning 0)))) 226 (nnmh-directory (substring dir 0 (1+ (match-beginning 0))))
227 (nnmail-keep-last-article nil) 227 (nnmail-keep-last-article nil)
228 (nnmh-get-new-mail nil)) 228 (nnmh-get-new-mail nil))