← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/mew-beta/intrepid

« back to all changes in this revision

Viewing changes to mew-summary3.el

  • Committer: Bazaar Package Importer
  • Author(s): Tatsuya Kinoshita
  • Date: 2007-04-23 20:51:39 UTC
  • mfrom: (1.1.7 upstream)
  • Revision ID: james.westby@ubuntu.com-20070423205139-m5xqwnskzdar9cmu
Tags: 5.2.50~0.20070423-1
* New upstream release. (CVS trunk on 2007-04-23)
  - Preventing APOP attack. [CVE-2007-1558]
* debian/emacsen-install.in: Rename path.el to __path.el.

Show diffs side-by-side

added added

removed removed

Lines of Context:
mew-summary3.el
97
97
(defun mew-summary-send (&optional to cc subject newsgroups)
98
98
  "Write a message. A new draft is prepared in Draft mode."
99
99
  (interactive)
100
 
  (let ((draft (mew-folder-new-message mew-draft-folder)))
 
100
  (let ((draft (mew-folder-new-message mew-draft-folder))
 
101
        asked)
101
102
    (if (mew-folder-nntpp (mew-summary-physical-folder))
102
103
        (if (null newsgroups) (setq newsgroups ""))
103
104
      (when (and mew-ask-to (null to))
104
 
        (setq to (mew-input-address (concat mew-to: " "))))
 
105
        (setq to (mew-input-address (concat mew-to: " ")))
 
106
        (setq asked t))
105
107
      (when (and mew-ask-cc (null cc))
106
 
        (setq cc (mew-input-address (concat mew-cc: " ")))))
 
108
        (setq cc (mew-input-address (concat mew-cc: " ")))
 
109
        (setq asked t)))
107
110
    (mew-current-set-window-config)
108
111
    (mew-window-configure 'draft)
109
112
    (mew-summary-prepare-draft
110
113
     (mew-draft-find-and-switch draft)
111
114
     (mew-delete-directory-recursively (mew-attachdir draft))
112
 
     (mew-draft-header subject nil to cc newsgroups)
 
115
     (mew-draft-header subject nil to cc newsgroups nil nil nil asked)
113
116
     (mew-draft-mode)
114
117
     (run-hooks 'mew-draft-mode-newdraft-hook))))
115
118
 
398
401
           (draftdir (file-name-nondirectory draft))
399
402
           (to (and mew-ask-to (mew-input-address (concat mew-to: " "))))
400
403
           (cc (and mew-ask-cc (mew-input-address (concat mew-cc: " "))))
 
404
           (asked (or mew-ask-to mew-ask-cc))
401
405
           subject fwsubject cwin)
402
406
      (mew-summary-prepare-draft
403
407
       (mew-summary-prepare-three-windows)
411
415
           (setq fwsubject (mew-subject-simplify (concat mew-forward-string subject))))
412
416
       (select-window cwin) ;; draft
413
417
       ;;
414
 
       (mew-draft-header fwsubject 'nl to cc)
 
418
       (mew-draft-header fwsubject 'nl to cc nil nil nil nil asked)
415
419
       (mew-draft-mode)
416
420
       (run-hooks 'mew-draft-mode-newdraft-hook)
417
421
       (mew-draft-multi-copy draft (list file))
435
439
    (let* ((draft (mew-folder-new-message mew-draft-folder))
436
440
           (draftdir (file-name-nondirectory draft))
437
441
           (to (and mew-ask-to (mew-input-address (concat mew-to: " "))))
438
 
           (cc (and mew-ask-cc (mew-input-address (concat mew-cc: " ")))))
 
442
           (cc (and mew-ask-cc (mew-input-address (concat mew-cc: " "))))
 
443
           (asked (or mew-ask-to mew-ask-cc)))
439
444
      (mew-summary-prepare-draft
440
445
       (mew-summary-prepare-three-windows)
441
446
       (mew-draft-find-and-switch draft t)
442
447
       (mew-delete-directory-recursively (mew-attachdir draft))
443
 
       (mew-draft-header nil 'nl to cc)
 
448
       (mew-draft-header nil 'nl to cc nil nil nil nil asked)
444
449
       (mew-draft-mode)
445
450
       (run-hooks 'mew-draft-mode-newdraft-hook)
446
451
       (mew-draft-multi-copy draft FILES)
453
458
 
454
459
;;; Copyright Notice:
455
460
 
456
 
;; Copyright (C) 1996-2006 Mew developing team.
 
461
;; Copyright (C) 1996-2007 Mew developing team.
457
462
;; All rights reserved.
458
463
 
459
464
;; Redistribution and use in source and binary forms, with or without