/[emacs]/emacs/lisp/mh-e/mh-identity.el
ViewVC logotype

Diff of /emacs/lisp/mh-e/mh-identity.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3.4.2 by miles, Tue Oct 14 23:39:26 2003 UTC revision 1.3.4.3 by miles, Sat Jul 17 02:51:49 2004 UTC
# Line 1  Line 1 
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>
# Line 40  Line 40 
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)
# Line 63  Line 64 
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

Legend:
Removed from v.1.3.4.2  
changed lines
  Added in v.1.3.4.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26