← Back to branch summary

~ubuntu-branches/debian/lenny/wl-beta/lenny

« back to all changes in this revision

Viewing changes to wl/wl.el

  • Committer: Bazaar Package Importer
  • Author(s): Tatsuya Kinoshita
  • Date: 2008-05-20 22:47:03 UTC
  • mfrom: (1.3.1 upstream) (8.1.7 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080520224703-0bo0zeloqn3higk5
Tags: 2.15.6+0.20080422-1
* New upstream release. (CVS trunk on 2008-04-22)
* debian/copyright: Updated.

Show diffs side-by-side

added added

removed removed

Lines of Context:
wl/wl.el
41
41
  (defmacro defgroup (&rest args))
42
42
  (defmacro defcustom (symbol value &optional doc &rest args)
43
43
    (let ((doc (concat "*" (or doc ""))))
44
 
      (` (defvar (, symbol) (, value) (, doc))))))
 
44
      `(defvar ,symbol ,value ,doc))))
45
45
 
46
46
(require 'wl-vars)
47
47
(require 'wl-util)
216
216
  (run-hooks 'wl-plugged-mode-hook))
217
217
 
218
218
(defmacro wl-plugged-string (plugged &optional time)
219
 
  (` (if (, time) wl-plugged-auto-off
220
 
       (if (, plugged) wl-plugged-plug-on wl-plugged-plug-off))))
 
219
  `(if ,time wl-plugged-auto-off
 
220
     (if ,plugged
 
221
         wl-plugged-plug-on
 
222
       wl-plugged-plug-off)))
221
223
 
222
224
(defmacro wl-plugged-server-indent ()
223
 
  (` (make-string wl-plugged-server-indent ? )))
 
225
  '(make-string wl-plugged-server-indent ? ))
224
226
 
225
227
(defun wl-plugged-set-variables ()
226
228
  (setq wl-plugged-sending-queue-alist
529
531
           ((eq indent wl-plugged-port-indent)  ;; toggle port plug
530
532
            (cond
531
533
             ((string-match "\\([^([]*\\)(\\([^)[]+\\))" name)
532
 
              (setq port (string-to-int (elmo-match-string 2 name)))
 
534
              (setq port (string-to-number (elmo-match-string 2 name)))
533
535
              (if (string-match "!" (setq name-1 (elmo-match-string 1 name)))
534
536
                  (setq stream-type
535
537
                        (intern (substring name-1 (match-end 0))))))
720
722
       (make-face (intern
721
723
                   (format "wl-highlight-summary-%s-flag-face" (car spec))))
722
724
       (nth 1 spec)))
723
 
    (setq elmo-get-folder-function #'wl-folder-make-elmo-folder)
 
725
    (setq elmo-get-folder-function #'wl-folder-make-elmo-folder
 
726
          elmo-progress-callback-function #'wl-progress-callback-function)
724
727
    (setq elmo-no-from wl-summary-no-from-message)
725
728
    (setq elmo-no-subject wl-summary-no-subject-message)
726
729
    (elmo-global-flags-initialize (mapcar 'car wl-summary-flag-alist))