← Back to branch summary

~ubuntu-branches/ubuntu/saucy/wl/saucy-proposed

« back to all changes in this revision

Viewing changes to wl/wl-template.el

  • Committer: Bazaar Package Importer
  • Author(s): Tatsuya Kinoshita
  • Date: 2007-01-02 21:08:54 UTC
  • mfrom: (3.1.3 edgy)
  • Revision ID: james.westby@ubuntu.com-20070102210854-nw929130dlxgi6q3
Tags: 2.14.0-4
http://bugs.debian.org/405284
elmo/elmo-imap4.el: Fix "IMAP error: No `OK' response from server",
patch from upstream CVS version. (closes: #405284)

Show diffs side-by-side

added added

removed removed

Lines of Context:
wl/wl-template.el
39
39
(defvar wl-template-cur-num 0)
40
40
(defvar wl-template-max-num 0)
41
41
(defvar wl-template-draft-buffer nil)
 
42
(defvar wl-template-preview nil)
42
43
 
43
44
;;; Code
44
45
 
51
52
  (define-key wl-template-mode-map "\r"    'wl-template-set)
52
53
  (define-key wl-template-mode-map "\n"    'wl-template-set))
53
54
 
 
55
(defun wl-template-preview-p ()
 
56
  "Return non-nil when preview template."
 
57
  wl-template-preview)
 
58
 
54
59
(defun wl-template-apply (name)
55
60
  "Apply NAME template to draft."
56
61
  (let (template)
88
93
(defun wl-template-select (&optional arg)
89
94
  "Select template from `wl-template-alist'."
90
95
  (interactive "P")
 
96
  (unless wl-template-alist
 
97
    (error "Please set `wl-template-alist'"))
91
98
  (if (not (if arg
92
99
               (not wl-template-visible-select)
93
100
             wl-template-visible-select))
129
136
  (save-excursion
130
137
    (set-buffer wl-template-buffer-name)
131
138
    (let ((buffer-read-only nil)
 
139
          (wl-template-preview t)
132
140
          (mail-header-separator  "--header separater--"))
133
141
      (erase-buffer)
134
142
      (goto-char (point-min))