← Back to branch summary

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

« back to all changes in this revision

Viewing changes to mew-summary4.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-summary4.el
773
773
       (message "Joining...")
774
774
       (with-temp-buffer
775
775
         (mew-set-buffer-multibyte t)
776
 
         (insert "CD: " cfld "\n")
 
776
         (insert "CD: " (mew-expand-folder2 cfld) "\n")
777
777
         (while targets
778
778
           (setq fld-msg (car targets))
779
779
           (setq targets (cdr targets))
872
872
              (forward-line)
873
873
              (delete-region (point-min) (point)))
874
874
            (setq i (1+ i)))
 
875
          (mew-header-delete-lines `(,mew-x-mew-uidl:))
875
876
          (write-region (point-min) (point-max)
876
877
                        (mew-folder-new-message folder)
877
878
                        nil 'no-msg)))
962
963
  "Copy messages marked with '*' to a local folder.  If called
963
964
with '\\[universal-argument]', only messages marked with '*' in
964
965
the region are handled."
965
 
  (interactive "P")
 
966
 (interactive "P")
966
967
  (mew-summary-not-in-draft
967
968
   (let ((mew-use-highlight-x-face nil)
968
969
         (fld (mew-summary-folder-name))
980
981
       (setq end (point-max))))
981
982
     (setq dstfld (mew-input-local-folder mew-inbox-folder))
982
983
     (when (and dstfld (mew-local-folder-check dstfld 'ask))
983
 
       (setq dstmsg (mew-folder-new-message dstfld 'numonly))
 
984
       (let ((mew-use-suffix nil))
 
985
         (setq dstmsg (mew-folder-new-message dstfld 'numonly)))
984
986
       (setq msgs (mew-summary-mark-collect mew-mark-review beg end))
985
987
       (when (get-buffer dstfld)
986
988
         (save-excursion
1300
1302
 
1301
1303
;;; Copyright Notice:
1302
1304
 
1303
 
;; Copyright (C) 1996-2006 Mew developing team.
 
1305
;; Copyright (C) 1996-2007 Mew developing team.
1304
1306
;; All rights reserved.
1305
1307
 
1306
1308
;; Redistribution and use in source and binary forms, with or without