Mercurial > emacs
diff lisp/mail/rnews.el @ 14040:187735b53d52
Comment fixes.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Fri, 05 Jan 1996 22:21:28 +0000 |
parents | 3e97c809ace1 |
children | 83f275dcd93a |
line wrap: on
line diff
--- a/lisp/mail/rnews.el Fri Jan 05 21:57:54 1996 +0000 +++ b/lisp/mail/rnews.el Fri Jan 05 22:21:28 1996 +0000 @@ -43,7 +43,7 @@ ;; tower@prep Sep 3 1986 ;; added news-rotate-buffer-body ;; tower@prep Oct 17 1986 -;; made messages more user friendly, cleanuped news-inews +;; made messages more user friendly, cleaned up news-inews ;; move posting and mail code to new file rnewpost.el ;; tower@prep Oct 29 1986 ;; added caesar-region, rename news-caesar-buffer-body, hacked accordingly @@ -796,7 +796,7 @@ (setq tem news-list-of-files) (while tem (if (or (not (string-match "^[0-9]*$" (car tem))) - ;; dont get confused by directories that look like numbers + ;; don't get confused by directories that look like numbers (file-directory-p (concat file-directory "/" (car tem))) (<= (string-to-int (car tem)) end-file-no)) @@ -858,7 +858,7 @@ (defun news-add-news-group (gp) "Resubscribe to or add a USENET news group named GROUP (a string)." ; @@ (completing-read ...) -; @@ could be based on news library file ../active (slightly facist) +; @@ could be based on news library file ../active (slightly fascist) ; @@ or (expensive to compute) all directories under the news spool directory (interactive "sAdd news group: ") (let ((file-dir (concat news-path (string-subst-char ?/ ?. gp))))