🚀 go-pugleaf

I have had this problem for a long time, and am hoping someone here
might be able to shed some light:

Whenever I send mail with attachments from vm, the recipient never
sees an attachment, only something like, "[ATTACHMENT
*vm-forward-buffer*, message/rfc822]" in the message. This happens for
messages I forward, as well, since they are attachments too.

I have been using vm for about 3 years now, and never had this problem
until about 6 months ago. Any ideas?

Here are the relevant portions of my .emacs:

from .emacs:
...
;------------------------------------------------------------------------------
;  mailcrypt stuff 
;------------------------------------------------------------------------------
(load-library "mailcrypt") 
(mc-setversion "gpg") 
(autoload 'mc-install-write-mode "mailcrypt" nil t) 
(autoload 'mc-install-read-mode "mailcrypt" nil t) 
(add-hook 'mail-mode-hook 'mc-install-write-mode) 
 
 
;------------------------------------------------------------------------------
;  Get VM settings from my .vm init file 
;------------------------------------------------------------------------------
(setq mail-user-agent `vm-user-agent) 
(setq toolbar-mail-reader `vm) 
(setq mail-default-reply-to "cbilson@pobox.com") 
(setq user-full-name "Chris Bilson") 
(setq user-mail-address "cbilson@pobox.com") 
(setq smtpmail-smtp-server "mail.starstream.net") 
(setq vm-init-file "/home/cbilson/.vm.el") 


from .vm.el:
; 
;  .vm init file for cbilson@fireball.mine.nu 
; 
 
; 
;  hook up mailcrypt 
; 
(add-hook 'vm-mode-hook 'mc-install-read-mode) 
(add-hook 'vm-summary-mode-hook 'mc-install-read-mode) 
(add-hook 'vm-virtual-mode-hook 'mc-install-read-mode) 
(add-hook 'vm-mail-mode-hook 'mc-install-write-mode) 
 
;  use mmencode for base64 stuff 
(setq vm-mime-base64-decoder-program "mmencode") 
(setq vm-mime-base64-decoder-switches '("-b" "-u")) 
(setq vm-mime-base64-encoder-program "mmencode") 
(setq vm-mime-base64-encoder-switches '("-b")) 
 
;  tell vm what these suffixes mean 
(setq vm-mime-attachment-auto-type-alist '(("\\.jpe?g" . "image/jpeg")
                                           ("\\.gif" . "image/gif") 
                                           ("\\.png" . "image/png") 
                                           ("\\.htm?l" . "text/html") 
                                           ("\\.txt" . "text/plain") 
                                           ("\\.log" . "text/plain")) 
 
;  show me the first unread message 
(setq vm-startup-with-summary t)       ;  gives a list of messages at
the top
(setq vm-jump-to-new-messages nil 
      vm-jump-to-unread-messages t) 
 
;  use MIME, so we can send attachments 
(setq vm-send-using-mime t) 
 
;  keep my folders in my mail directory 
(setq vm-folder-directory "/home/cbilson/mail") 
 
;  use one window / don't open a bunch of new ones 
(setq vm-frame-per-composition nil) 
(setq vm-frame-per-edit nil) 
(setq vm-frame-per-summary nil) 
(setq vm-frame-per-folder nil) 
 
;  no buttons 
(setq vm-use-toolbar nil) 
 
;  get new mail every 3 minutes 
(setq vm-auto-get-new-mail nil) 
 
;  set-up spool files 
(setq vm-spool-files 
      '( 
;       "imap:localhost:143:inbox:login:cbilson:*" 
        "mail.starstream.net:pop3:pass:cbilson:*" 
;       "mailandnews.com:pop3:pass:cbilson:*" 
;       "localhost:imap:pass:cbilson:*" 
       ) 
      ) 
 
;  use this signature 
(setq mail-signature t) 
(setq mail-signature-file "/home/cbilson/.signature") 
 
;  add "Re: " to the front of replies 
(setq vm-reply-subject-prefix "Re: ") 
(setq vm-subject-ignore-prefix
"\\`\\(re\\(([0-9]+)\\|\\[[0-9]+\\]\\|\\^[0-9]+\\)?: *\$
 
;  bcc my self on all outgoing messages 
(setq mail-self-blind nil) 
(setq mail-archive-file-name "/home/cbilson/mail/sent-mail") 
 
;  make 'A' key auto-archive 
(setq vm-auto-folder-alist  
      '( 
        ("To" ("dev@salu.com" . "salu-dev")) 
        ("To" ("dev@salu.net" . "salu-dev")) 
        ("To" ("anonymous@dev.salu.com" . "salu-dev")) 

...

       ))

;  delete aut-archived mail after archiving it 
(setq vm-delete-after-archiving `t) 
 
;  use bbdb 
(bbdb-insinuate-vm) 
(setq vm-quit-hook '((lambda nil (bbdb-save-db))))