1 |
;;; mh-identity.el --- Multiple identify support for MH-E. |
;;; mh-identity.el --- Multiple identify support for MH-E. |
2 |
|
|
3 |
;; Copyright (C) 2002, 2003 Free Software Foundation, Inc. |
;; Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Peter S. Galbraith <psg@debian.org> |
;; Author: Peter S. Galbraith <psg@debian.org> |
6 |
;; Maintainer: Bill Wohler <wohler@newt.com> |
;; Maintainer: Bill Wohler <wohler@newt.com> |
40 |
;;; Code: |
;;; Code: |
41 |
|
|
42 |
|
|
43 |
(require 'cl) |
(require 'mh-utils) |
44 |
|
(mh-require-cl) |
45 |
|
|
46 |
(eval-when (compile load eval) |
(eval-when (compile load eval) |
47 |
(defvar mh-comp-loaded nil) |
(defvar mh-comp-loaded nil) |
64 |
;; ["home" (mh-insert-identity "home") |
;; ["home" (mh-insert-identity "home") |
65 |
;; :style radio :active (not (equal mh-identity-local "home")) |
;; :style radio :active (not (equal mh-identity-local "home")) |
66 |
;; :selected (equal mh-identity-local "home")] |
;; :selected (equal mh-identity-local "home")] |
67 |
|
'(["Insert Auto Fields" (mh-insert-auto-fields) mh-auto-fields-list] |
68 |
|
"--") |
69 |
(mapcar (function |
(mapcar (function |
70 |
(lambda (arg) |
(lambda (arg) |
71 |
`[,arg (mh-insert-identity ,arg) :style radio |
`[,arg (mh-insert-identity ,arg) :style radio |