← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/mew-beta/intrepid

« back to all changes in this revision

Viewing changes to mew-bq.el

  • Committer: Bazaar Package Importer
  • Author(s): Tatsuya Kinoshita
  • Date: 2007-08-18 19:09:07 UTC
  • mfrom: (1.1.9 upstream)
  • Revision ID: james.westby@ubuntu.com-20070818190907-t4ygobhu4fml2wj2
Tags: 5.2.51~0.20070817-1
New upstream release. (CVS trunk on 2007-08-17)

Show diffs side-by-side

added added

removed removed

Lines of Context:
mew-bq.el
200
200
   ((and (<= ?A hex) (<= hex ?F)) (+ (- hex ?A) 10))
201
201
   ((and (<= ?a hex) (<= hex ?f)) (+ (- hex ?a) 10))))
202
202
 
203
 
(defun mew-q-decode-string (qpstr &optional key)
 
203
(defun mew-q-decode-string (qpstr &optional okey)
204
204
  (condition-case nil
205
205
      (let* ((len (length qpstr))
206
206
             (ret (make-string len ?a))
207
 
             (i 0) (j 0) char)
208
 
        (setq key (or key ?=))
 
207
             (i 0) (j 0) char key)
 
208
        (setq key (or okey ?=))
209
209
        (while (< i len)
210
210
          (setq char (aref qpstr i))
211
211
          (cond
212
 
           ((and (not key) (char-equal char ?_))
 
212
           ((and (not okey) (char-equal char ?_))
213
213
            (aset ret j mew-sp))
214
214
           ((char-equal char key)
215
215
            (aset ret j (+ (* (mew-hexchar-to-int (aref qpstr (1+ i))) 16)
700
700
       ((eq err 'ctl)
701
701
        (concat "The '" param "' has invalid control codes.\n"))
702
702
       ((eq err 'enc)
703
 
        (concat "The '" param "' parameter has encoded-word.\n")))
 
703
        (concat "The '" param "' parameter has encoded-word.\n"))
 
704
       ((eq err 'char)
 
705
        (concat "The '" param "' has invalid charactors.\n")))
704
706
      (mew-xinfo-get-warning)))))
705
707
 
706
708
(defun mew-header-decode-region (key rbeg rend &optional draftp)