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

[Miles Bader]

Index: emacs/lisp/mh-e/mh-comp.el
diff -c emacs/lisp/mh-e/mh-comp.el:1.2 emacs/lisp/mh-e/mh-comp.el:1.3
*** emacs/lisp/mh-e/mh-comp.el:1.2      Mon Feb  3 15:55:30 2003
--- emacs/lisp/mh-e/mh-comp.el  Tue Feb  4 08:15:32 2003
***************
*** 30,36 ****
  
  ;;; Change Log:
  
! ;; $Id: mh-comp.el,v 1.2 2003/02/03 20:55:30 wohler Exp $
  
  ;;; Code:
  
--- 30,36 ----
  
  ;;; Change Log:
  
! ;; $Id: mh-comp.el,v 1.3 2003/02/04 13:15:32 lektu Exp $
  
  ;;; Code:
  
***************
*** 552,558 ****
                                  t)))
        (delete-other-windows)
        (save-buffer)
!       
        (let ((to (mh-get-header-field "To:"))
              (subject (mh-get-header-field "Subject:"))
              (cc (mh-get-header-field "Cc:")))
--- 552,558 ----
                                  t)))
        (delete-other-windows)
        (save-buffer)
! 
        (let ((to (mh-get-header-field "To:"))
              (subject (mh-get-header-field "Subject:"))
              (cc (mh-get-header-field "Cc:")))
***************
*** 1151,1157 ****
    (pop-to-buffer draft)
    (if mh-insert-mail-followup-to-flag (mh-insert-mail-followup-to))
    (mh-letter-mode)
!    
    ;; mh-identity support
    (if (and (boundp 'mh-identity-default)
             mh-identity-default)
--- 1151,1157 ----
    (pop-to-buffer draft)
    (if mh-insert-mail-followup-to-flag (mh-insert-mail-followup-to))
    (mh-letter-mode)
! 
    ;; mh-identity support
    (if (and (boundp 'mh-identity-default)
             mh-identity-default)
***************
*** 1160,1166 ****
               mh-identity-list)
      (mh-identity-make-menu)
      (easy-menu-add mh-identity-menu))
!  
    (setq mh-sent-from-folder sent-from-folder)
    (setq mh-sent-from-msg sent-from-msg)
    (setq mh-send-args send-args)
--- 1160,1166 ----
               mh-identity-list)
      (mh-identity-make-menu)
      (easy-menu-add mh-identity-menu))
! 
    (setq mh-sent-from-folder sent-from-folder)
    (setq mh-sent-from-msg sent-from-msg)
    (setq mh-send-args send-args)
***************
*** 1389,1395 ****
      ;; Insert the string to filter
      (insert string)
      (goto-char (point-min))
!     
      ;; Remove the MIME buttons
      (let ((can-move-forward t)
            (in-button nil))
--- 1389,1395 ----
      ;; Insert the string to filter
      (insert string)
      (goto-char (point-min))
! 
      ;; Remove the MIME buttons
      (let ((can-move-forward t)
            (in-button nil))
***************
*** 1486,1492 ****
                 (looking-at "^.*\\(to\\|cc\\|from\\):")))
          (mh-alias-letter-expand-alias)
        (funcall mh-letter-complete-function arg))))
!       
  ;;; Build the letter-mode keymap:
  ;;; If this changes, modify mh-letter-mode-help-messages accordingly, above.
  (gnus-define-keys  mh-letter-mode-map
--- 1486,1492 ----
                 (looking-at "^.*\\(to\\|cc\\|from\\):")))
          (mh-alias-letter-expand-alias)
        (funcall mh-letter-complete-function arg))))
! 
  ;;; Build the letter-mode keymap:
  ;;; If this changes, modify mh-letter-mode-help-messages accordingly, above.
  (gnus-define-keys  mh-letter-mode-map