+;;; bbdb-wl.el -- BBDB interface to Wanderlust
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; 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)
(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)
))))
(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)
"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))
(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))
(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))))
;;; @ 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
(provide 'bbdb-wl)
+
+;;; bbdb-wl.el ends here
-;;;
-;;; im-wl -- IM/Nifty4U+ interface for Wanderlust.
-;;; ...not completed.
-;;;
-;;; Copyright (C) 1998,1999 OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
-;;; Copyright (C) 1998,1999 Yuuichi Teranishi <teranisi@gohome.org>
-;;;
-;;; Time-stamp: <1999-09-10 22:58:45 fuji0924>
-;;; Author: OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
-;;; Yuuichi Teranishi <teranisi@gohome.org>
-;;; 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 <fuji0924@mbox.kyoto-inet.or.jp>
+;; Copyright (C) 1998,1999 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+;; Yuuichi Teranishi <teranisi@gohome.org>
+;; 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
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).")
;;; Copyright 1999 Sen Nagata <sen@eccosys.com>
-;; Keywords: rfc 2368, mailto, mail
+;; Author: Sen Nagata <sen@eccosys.com>
;; Version: 0.3
+;; Keywords: rfc 2368, mailto, mail
;; License: GPL 2
;; This file is not a part of GNU Emacs.
;; 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!
;;
;;
;; 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:
;;
-;;; wl-mailto.el --- some mailto support for wanderlust
+;;; wl-mailto.el -- some mailto support for wanderlust
;;; Copyright (C) 1999 Sen Nagata
;;
;; 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)
;;
;; <necessary>
;; 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
;; 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)
projects / elisp / wanderlust.git / commitdiff