From 6a922a71b819f0c7b0d2e2435df5b0a768466c64 Mon Sep 17 00:00:00 2001 From: kaoru Date: Fri, 27 Oct 2000 01:16:24 +0000 Subject: [PATCH] Checkdoc. --- utils/bbdb-wl.el | 35 ++++++++++++++------ utils/im-wl.el | 90 +++++++++++++++++++++++++--------------------------- utils/rfc2368.el | 7 ++-- utils/wl-mailto.el | 12 +++---- 4 files changed, 80 insertions(+), 64 deletions(-) diff --git a/utils/bbdb-wl.el b/utils/bbdb-wl.el index 2d14a9e..edc483f 100644 --- a/utils/bbdb-wl.el +++ b/utils/bbdb-wl.el @@ -1,6 +1,21 @@ +;;; bbdb-wl.el -- BBDB interface to Wanderlust + +;; Copyright 1998,1999,2000 Yuuichi Teranishi + +;; Author: Yuuichi Teranishi +;; Keywords: mail, news, database + +;;; Commentary: ;; -;; bbdb setup. +;; Insert the following lines in your ~/.wl +;; +;; (require 'bbdb-wl) +;; (bbdb-wl-setup) + +;;; Code: ;; + +;; bbdb setup. (eval-when-compile (require 'mime-setup) (require 'elmo-vars) @@ -37,7 +52,7 @@ (add-hook 'wl-mail-setup-hook (function (lambda () -; (local-set-key "\M-\t" 'bbdb-complete-name) +;;; (local-set-key "\M-\t" 'bbdb-complete-name) (define-key (current-local-map) "\M-\t" 'bbdb-complete-name) )))) @@ -84,7 +99,7 @@ (switch-to-buffer (get-buffer-create bbdb-buffer-name))))))) (defun bbdb-wl-from-func (string) - "A candidate for wl-summary-from-func..." + "A candidate From field STRING. For `wl-summary-from-func'." (let ((hit (bbdb-search-simple nil (wl-address-header-extract-address string))) first-name last-name from-str) @@ -152,7 +167,7 @@ the user confirms the creation." "Add a line to the end of the Notes field of the BBDB record corresponding to the sender of this message." (interactive (list (if bbdb-readonly-p - (error "The Insidious Big Brother Database is read-only.") + (error "The Insidious Big Brother Database is read-only") (read-string "Comments: ")))) (set-buffer (wl-message-get-original-buffer)) (bbdb-annotate-notes (bbdb-wl-update-record t) string)) @@ -171,7 +186,7 @@ of the BBDB record corresponding to the sender of this message." (defun bbdb-wl-show-sender () "Display the contents of the BBDB for the sender of this message. -This buffer will be in bbdb-mode, with associated keybindings." +This buffer will be in `bbdb-mode', with associated keybindings." (interactive) (wl-summary-redisplay) (set-buffer (wl-message-get-original-buffer)) @@ -181,7 +196,7 @@ This buffer will be in bbdb-mode, with associated keybindings." (progn (bbdb-wl-pop-up-bbdb-buffer) (bbdb-display-records (list record))) - (error "unperson")) + (error "Unperson")) (setq bbdb-win (get-buffer-window (get-buffer bbdb-buffer-name))) (and bbdb-win (select-window bbdb-win)))) @@ -235,10 +250,10 @@ displaying the record corresponding to the sender of the current message." ;;; @ bbdb-extract-field-value -- stolen from tm-bbdb. ;;; (and (not (fboundp 'bbdb-extract-field-value-internal)) -;; (not (fboundp 'PLEASE_REPLACE_WITH_SEMI-BASED_MIME-BBDB)) ;; mime-bbdb +;;; (not (fboundp 'PLEASE_REPLACE_WITH_SEMI-BASED_MIME-BBDB)) ;; mime-bbdb (progn - ;; (require 'bbdb-hooks) ; not provided. - ;; (or (fboundp 'bbdb-extract-field-value) ; defined as autoload +;;; (require 'bbdb-hooks) ; not provided. +;;; (or (fboundp 'bbdb-extract-field-value) ; defined as autoload (or (fboundp 'bbdb-header-start) (load "bbdb-hooks")) (fset 'bbdb-extract-field-value-internal @@ -257,3 +272,5 @@ displaying the record corresponding to the sender of the current message." (provide 'bbdb-wl) + +;;; bbdb-wl.el ends here diff --git a/utils/im-wl.el b/utils/im-wl.el index 053bcb0..496a818 100644 --- a/utils/im-wl.el +++ b/utils/im-wl.el @@ -1,50 +1,48 @@ -;;; -;;; im-wl -- IM/Nifty4U+ interface for Wanderlust. -;;; ...not completed. -;;; -;;; Copyright (C) 1998,1999 OKUNISHI Fujikazu -;;; Copyright (C) 1998,1999 Yuuichi Teranishi -;;; -;;; Time-stamp: <1999-09-10 22:58:45 fuji0924> -;;; Author: OKUNISHI Fujikazu -;;; Yuuichi Teranishi -;;; Keywords: mail, news, Wanderlust, IM, Nifty4U+ - -;;; This program is free software; you can redistribute it and/or modify -;;; it under the terms of the GNU General Public License as published by -;;; the Free Software Foundation; either version 2, or (at your option) -;;; any later version. -;;; -;;; This program is distributed in the hope that it will be useful, -;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;;; GNU General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with GNU Emacs; see the file COPYING. If not, write to the -;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;;; Boston, MA 02111-1307, USA. -;;; - -;;; -;;; General settings: -;;; (autoload 'wl-draft-send-with-imput-async "im-wl") -;;; (setq wl-draft-send-func 'wl-draft-send-with-imput-async) -;;; -;;; for Nifty4U+ users: -;;; (add-hook 'wl-mail-setup-hook '(lambda () (require 'im-wl))) -;;; (setq wl-draft-config-alist -;;; '(("^Newsgroups: nifty\\..*" -;;; ;; to avoid header-encoding. -;;; ;; [cf. slrn-ja-0.9.4.6.jp4/doc/README.macros.euc] -;;; ;(eword-field-encoding-method-alist . '((t . iso-2022-jp-2))) -;;; (wl-draft-send-func . 'wl-draft-send-with-imput-async) -;;; (im-wl-dispatcher . '("~/nifty4u-plus/inews-nifty4u" "-h")) -;;; (im-wl-dispatcher-error-msg -;;; . (format "^%s :" (expand-file-name (car im-wl-dispatcher))))))) +;;; im-wl.el -- IM/Nifty4U+ interface for Wanderlust. (not completed.) + +;; Copyright (C) 1998,1999 OKUNISHI Fujikazu +;; Copyright (C) 1998,1999 Yuuichi Teranishi + +;; Author: OKUNISHI Fujikazu +;; Yuuichi Teranishi +;; Keywords: mail, news, Wanderlust, IM, Nifty4U+ + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. +;; + +;;; Commentary: + +;; General settings: +;; (autoload 'wl-draft-send-with-imput-async "im-wl") +;; (setq wl-draft-send-func 'wl-draft-send-with-imput-async) +;; +;; for Nifty4U+ users: +;; (add-hook 'wl-mail-setup-hook '(lambda () (require 'im-wl))) +;; (setq wl-draft-config-alist +;; '(("^Newsgroups: nifty\\..*" +;; ;; to avoid header-encoding. +;; ;; [cf. slrn-ja-0.9.4.6.jp4/doc/README.macros.euc] +;; ;(eword-field-encoding-method-alist . '((t . iso-2022-jp-2))) +;; (wl-draft-send-func . 'wl-draft-send-with-imput-async) +;; (im-wl-dispatcher . '("~/nifty4u-plus/inews-nifty4u" "-h")) +;; (im-wl-dispatcher-error-msg +;; . (format "^%s :" (expand-file-name (car im-wl-dispatcher))))))) ;;; Code: -;(require 'emu) +;;;(require 'emu) ;;; Variables: (defvar im-wl-dispatcher @@ -53,7 +51,7 @@ This is most commonly `imput(impost)' or `inews-nifty4u'.") (defvar im-wl-dispatcher-error-msg (format "^%s: ERROR:" (car im-wl-dispatcher)) - "Error message of dispatcher") + "Error message of dispatcher.") (defvar im-wl-default-temp-file-name "~/.imput-temp" "Default temporary file name (for async).") diff --git a/utils/rfc2368.el b/utils/rfc2368.el index f66a5f6..8137c9a 100644 --- a/utils/rfc2368.el +++ b/utils/rfc2368.el @@ -2,8 +2,9 @@ ;;; Copyright 1999 Sen Nagata -;; Keywords: rfc 2368, mailto, mail +;; Author: Sen Nagata ;; Version: 0.3 +;; Keywords: rfc 2368, mailto, mail ;; License: GPL 2 ;; This file is not a part of GNU Emacs. @@ -13,7 +14,7 @@ ;; notes: ;; ;; -repeat after me: "the colon is not part of the header name..." -;; -if w3 becomes part of emacs, then it may make sense to have this +;; -if w3 becomes part of Emacs, then it may make sense to have this ;; file depend on w3 -- the maintainer of w3 says merging w/ emacs ;; is planned! ;; @@ -25,7 +26,7 @@ ;; ;; the functions that deal w/ unhexifying in this file were basically ;; taken from w3 -- i hope to replace them w/ something else soon OR -;; perhaps if w3 becomes a part of emacs soon, use the functions from w3. +;; perhaps if w3 becomes a part of Emacs soon, use the functions from w3. ;;; History: ;; diff --git a/utils/wl-mailto.el b/utils/wl-mailto.el index 09fb0c6..4c824b2 100644 --- a/utils/wl-mailto.el +++ b/utils/wl-mailto.el @@ -1,4 +1,4 @@ -;;; wl-mailto.el --- some mailto support for wanderlust +;;; wl-mailto.el -- some mailto support for wanderlust ;;; Copyright (C) 1999 Sen Nagata @@ -20,7 +20,7 @@ ;; ;; installation: ;; -;; -put this file (and rfc2368.el) in an appropriate directory (so emacs +;; -put this file (and rfc2368.el) in an appropriate directory (so Emacs ;; can find it) ;; ;; @@ -80,7 +80,7 @@ ;; how should we handle the dependecy on wl? ;; will this work? -(eval-when-compile +(eval-when-compile (require 'wl)) ;; use rfc2368 support -- should be usable for things other than wl too @@ -92,18 +92,18 @@ ;; for xemacs versions less than 21, use browse-url.el (progn (require 'browse-url) - (fset 'wl-mailto-url-at-point + (fset 'wl-mailto-url-at-point 'browse-url-url-at-point)) ;; for everything else, use thingatpt.el (progn (require 'thingatpt) (fset 'wl-mailto-url-at-point - (lambda () + (lambda () (thing-at-point 'url))))) (defun wl-mailto-compose-message-from-mailto-url (url &optional dummy) "Compose a message from URL (RFC 2368). -The optional second argument, DUMMY, exists to match the interface +The optional second argument, DUMMY, exists to match the interface provided by `browse-url-mail' (w3) -- DUMMY does not do anything." (interactive "sURL: ") (if (string-match rfc2368-mailto-regexp url) -- 1.7.10.4