emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-customize.el [lexbind]


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/mh-e/mh-customize.el [lexbind]
Date: Sat, 04 Sep 2004 05:41:26 -0400

Index: emacs/lisp/mh-e/mh-customize.el
diff -c emacs/lisp/mh-e/mh-customize.el:1.3.4.4 
emacs/lisp/mh-e/mh-customize.el:1.3.4.5
*** emacs/lisp/mh-e/mh-customize.el:1.3.4.4     Sat Sep  4 09:22:56 2004
--- emacs/lisp/mh-e/mh-customize.el     Sat Sep  4 09:26:23 2004
***************
*** 78,83 ****
--- 78,90 ----
  (when mh-xemacs-flag
    (require 'mh-xemacs))
  
+ ;; XXX: Functions autoloaded from the following files are used to initialize
+ ;;  customizable variables. They are require'd here, since otherwise the
+ ;;  corresponding .elc would be loaded at compile time.
+ (eval-when-compile
+   (require 'mh-init)
+   (require 'mh-identity))
+ 
  (defun mh-customize (&optional delete-other-windows-flag)
    "Customize MH-E variables.
  If optional argument DELETE-OTHER-WINDOWS-FLAG is non-nil, other windows in
***************
*** 527,533 ****
    :group 'mh-identity)
  
  (defcustom mh-identity-handlers
!   '(("default" . mh-identity-handler-bottom)
      ("from" . mh-identity-handler-top)
      (":attribution-verb" . mh-identity-handler-attribution-verb)
      (":signature" . mh-identity-handler-signature)
--- 534,540 ----
    :group 'mh-identity)
  
  (defcustom mh-identity-handlers
!   '((":default" . mh-identity-handler-bottom)
      ("from" . mh-identity-handler-top)
      (":attribution-verb" . mh-identity-handler-attribution-verb)
      (":signature" . mh-identity-handler-signature)
***************
*** 535,543 ****
    "Handler functions for fields in `mh-identity-list'.
  This is an alist of fields (strings) and handlers (functions). Strings are
  lowercase. Use \":signature\" for Signature and \":pgg-default-user-id\" for
! GPG Key ID. The function associated with the string \"default\" is used if no
! other functions are appropriate. For this reason, don't name a header field
! \"Default\"."
    :type '(repeat (cons (string :tag "Field") function))
    :group 'mh-identity)
  
--- 542,549 ----
    "Handler functions for fields in `mh-identity-list'.
  This is an alist of fields (strings) and handlers (functions). Strings are
  lowercase. Use \":signature\" for Signature and \":pgg-default-user-id\" for
! GPG Key ID. The function associated with the string \":default\" is used if no
! other functions are appropriate."
    :type '(repeat (cons (string :tag "Field") function))
    :group 'mh-identity)
  




reply via email to

[Prev in Thread] Current Thread [Next in Thread]