← Back to branch summary

~vm/vm/message

« back to all changes in this revision

Viewing changes to lisp/vm-pcrisis.el

  • Committer: udr
  • Date: 2010-12-23 01:06:39 UTC
  • Revision ID: udr@maruti-20101223010639-1oj8bok1myg4pk5j
First cut at using message-mode in vm-reply.  But attachments are not getting sent correctly as yet.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lisp/vm-pcrisis.el
293
293
              (setq nextfield (nth (1- nextfield) useful-headers))
294
294
            (setq nextfield (nth (1+ nextfield) useful-headers)))
295
295
          (if nextfield
296
 
              (mail-position-on-field nextfield)
297
 
            (mail-text)
 
296
              (vm-mail-position-on-field nextfield)
 
297
            (vm-mail-text)
298
298
            (vmpc-automorph))
299
299
          )
300
300
      (tab-to-tab-stop)
447
447
  (if vmpc-expect-default-signature
448
448
      (save-excursion
449
449
        (let ((p-max (point-max))
450
 
              (body-start (save-excursion (mail-text) (point)))
 
450
              (body-start (save-excursion (vm-mail-text) (point)))
451
451
              (sig-start nil))
452
452
          (goto-char p-max)
453
453
          (setq sig-start (re-search-backward "\n-- \n" body-start t))
486
486
  (if (eq vmpc-current-buffer 'composition)
487
487
      (save-excursion
488
488
        (let ((start) (end))
489
 
          (mail-position-on-field hdrfield)
 
489
          (vm-mail-position-on-field hdrfield)
490
490
          (if entire
491
491
              (setq end (+ (point) 1))
492
492
            (setq end (point)))
504
504
contents."
505
505
  (if (eq vmpc-current-buffer 'composition)
506
506
      (save-excursion
507
 
        (mail-position-on-field hdrfield)
 
507
        (vm-mail-position-on-field hdrfield)
508
508
        (insert content))))
509
509
 
510
510
(defun vmpc-substitute-header (hdrfield content)
532
532
    ;; don't add this new header if it's already there
533
533
    (unless (member content prev-contents)
534
534
      (save-excursion
535
 
        (or (mail-position-on-field hdrfield t) ; Put new field after existing one
536
 
            (mail-position-on-field "to"))
 
535
        (or (vm-mail-position-on-field hdrfield t)      ; Put new field after existing one
 
536
            (vm-mail-position-on-field "to"))
537
537
        (unless (eq (aref hdrfield (1- (length hdrfield))) ?:)
538
538
          (setq hdrfield (concat hdrfield ":")))
539
539
        (insert "\n" hdrfield " ")
684
684
      (save-excursion
685
685
        (let ((header-name-regexp "^\\([^ \t\n:]+\\):") (start) (end))
686
686
          (setq end
687
 
                (if (mail-position-on-field hdrfield t)
 
687
                (if (vm-mail-position-on-field hdrfield t)
688
688
                    (point)
689
689
                  nil))
690
690
          (setq start
724
724
            ;; HDRFIELD does not exist
725
725
            (if append-if-no-match
726
726
                (progn
727
 
                  (mail-position-on-field hdrfield)
 
727
                  (vm-mail-position-on-field hdrfield)
728
728
                  (insert to-string))))))))
729
729
 
730
730