X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;ds=sidebyside;f=lisp%2Fnneething.el;h=2c6fb78adea64413862c6b86eed0c16499512f86;hb=c338a4ae1a7184105a6a2ad4f4eeeaf0969d87a5;hp=61e8276de0140f119be944f9e05314492cf63707;hpb=151548a0f73ebc20a4a05b13d7060fa51884be8e;p=gnus diff --git a/lisp/nneething.el b/lisp/nneething.el index 61e8276de..2c6fb78ad 100644 --- a/lisp/nneething.el +++ b/lisp/nneething.el @@ -1,5 +1,5 @@ ;;; nneething.el --- arbitrary file access for Gnus -;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. +;; Copyright (C) 1995,96,97,98,99 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen ;; Masanobu UMEDA @@ -127,7 +127,8 @@ included.") (nnmail-find-file file) ; Insert the file in the nntp buf. (unless (nnheader-article-p) ; Either it's a real article... (goto-char (point-min)) - (nneething-make-head file (current-buffer)) ; ... or we fake some headers. + (nneething-make-head + file (current-buffer)) ; ... or we fake some headers. (insert "\n")) t)))) @@ -315,7 +316,8 @@ included.") (substring file (match-beginning 1) (match-end 1)) - (when (string-match "/\\(users\\|home\\)/\\([^/]+\\)/" file) + (when (string-match + "/\\(users\\|home\\)/\\([^/]+\\)/" file) (setq login (substring file (match-beginning 2) (match-end 2))