Emacs advanced

Using emms

- Download emms ,mp3info and mpg321 and install them.

- Add the following to .emacs

  add-to-list 'load-path "/usr/local/emms/")
  (require 'emms)
  (require 'emms-default)
  (emms-setup 'cvs "/mnt/win_e/music" "~/mp3")
  (add-hook 'emms-player-started-hook 'emms-show)
  (setq emms-show-format "NP: %s")
  (setq dired-guess-shell-alist-user
      `((,(regexp-opt
           '(".mp3" ".ogg" ".wav" ".avi" ".mpg" ".dat" ".wma" ".asf" ".rmvb"))
         (progn (emms-add-file (dired-get-filename))
                (keyboard-quit)))))

- Operations:

  - M-x emms-play-file
    play a file
  - M-x emms-play-directory
    play a directory
  - emms-pbi-popup-playlist  
    popup the playlist in emacs

Using emacs-w3m

- Download emacs-w3m and w3m and install them.

- Add the following to .emacs
   (require 'w3m-load)

- Operations:

  - M-x w3m-browse-url
    browse a url
  - M-x w3m-find-file
    find a file to display
  - RET (w3m-view-this-url)
    Display the page pointed by the link under point
  - g (w3m-goto-url)
    Prompt for a URL make emacs-w3m display it
  - c
    Display the URL of displayed page and put it to kill-ring
  - u
    Display the URL of the point and put it to kill-ring
  - R
    Reload the page
  - SPC
    Scroll downwards.  
  - Del
    Scroll upwards.
  - >
    Scroll to the left. 
  - <
    Scroll to the right. 
  - TAB
    Move the point to the next link 
  - M-TAB
    Move the point to the previous anchor. 
  -B (w3m-view-previous-page)
     Move back one page in history.
  -N (w3m-view-next-page)
     Move forward one page in history
  -H (w3m-gohome)
     Move to the home page 

Using VM

- Download VM and install it.

- Add the following to .emacs
  (setq mail-default-reply-to "[e-mail]")
  (setq user-full-name "Gavin Xu")
  (setq user-mail-address "[e-mail]")

  (autoload 'vm "vm" "Start VM on your primary inbox." t)
  (autoload 'vm-other-frame "vm" "Like `vm' but starts in another frame." t)
  (autoload 'vm-visit-folder "vm" "Start VM on an arbitrary folder." t)
  (autoload 'vm-visit-virtual-folder "vm" "Visit a VM virtual folder." t)
  (autoload 'vm-mode "vm" "Run VM major mode on a buffer" t)
  (autoload 'vm-mail "vm" "Send a mail message using VM." t)
  (autoload 'vm-submit-bug-report "vm" "Send a bug report about VM." t)

- Add the following to .vm

  (setq

   ;;; Mime stuff ("attachments") and browser tie-in.

      vm-auto-displayed-mime-content-types
	'("multipart/mixed" "multipart/alternative"
	  "text/plain" "multipart/signed")
      vm-mime-base64-encoder-program "/usr/local/bin/base64-encode"
      vm-mime-base64-decoder-program "/usr/local/bin/base64-decode"
      vm-mime-qp-encoder-program "/usr/local/bin/qp-encode"
      vm-mime-qp-decoder-program "/usr/local/bin/qp-decode"
      vm-send-using-mime t
      vm-url-browser
	 'vm-mouse-send-url-to-netscape ;;; ok w/mozilla too
      vm-mime-external-content-types-alist
      '(
        ("text/html" "mozilla") ;;; Will launch new browser.
        ("image/gif" "xv")
        ("image/jpeg" "xv")
        ("image/png" "xv")
        ("application/pdf" "acroread")
        ("application/postscript" "gv")
        ("video" "xanim")
        ("audio/x-pn-realaudio" "realplay")
        ("audio" "xwave")
        )

     ;;; Folders, etc.

      vm-primary-inbox "~/Mail/Inbox"
      vm-folder-directory "~/Mail/"
      vm-crash-box "~/Mail/INBOX.CRASH"
      vm-auto-get-new-mail t
      vm-circular-folders nil
      vm-confirm-new-folders t
      vm-convert-folder-types t

      ;;; forwarding, replying, etc.

      vm-forwarding-subject-format "[forwarded from %F] %s"
      vm-forwarding-digest-type "rfc934"
      vm-in-reply-to-format nil
      vm-included-text-attribution-format
	  "On %w, %m %d, %y at %h (%z), %F wrote:\n"
      vm-reply-subject-prefix "Re: "

      ;;; Misc

      vm-mail-header-from "Gavin Xu "
      vm-move-after-deleting t
      vm-delete-after-saving t
      vm-edit-message-mode 'indented-text-mode
      vm-follow-summary-cursor t

      vm-default-folder-type 'From_-with-Content-Length
      vm-trust-From_-with-Content-Length t

      ;;; emacs frames (windows)

      vm-frame-per-composition nil
      vm-frame-per-folder t
      vm-frame-per-edit nil

      ;;; appearance

      vm-highlighted-header-regexp
	"^From\\|^Subject\\|^Date\\|^CC\\|^Cc\\|To"
      vm-preview-lines nil
      vm-startup-with-summary t
      vm-summary-format "%3n %*%A %-17.17F %-3.3m %2d (%4l) %I%s\n"
      vm-summary-highlight-face "region"
      vm-summary-show-threads nil
      vm-visible-headers '("From:" "Sender:" "To:" "Apparently-To:"
                          "Cc:" "Subject:" "Date:" "Resent-From:"
			  "Message-Id:" "Message-ID:" "Message-id:" 
                          "Resent-Sender:" "X-Zippy")
     )

     ;;; misc: zap deleted messages when you quit a folder:

     (add-hook 'vm-quit-hook 'vm-expunge-folder)

     ;;; From Bill Cotton: the "l" key prints.  My way!

     (define-key vm-mode-map "l" 'print-messages)

      (setq vm-spool-files (list
		      (concat "imap:mail.qd.lucent.com:143:inbox:login:"
			      (getenv "USER") ":*")))