[mew-dist 27209] Re: 大きな写真

[Tetsuya Toda]

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Date: Wed, 09 Aug 2006 17:17:20 +0900 (JST)

> というわけで、大きな JPEG は、自動的にフレームぐらいの大きさに縮小する
> 機能を付けました。

  今は x 方向しかサイズのチェックをしていないようですが，xy 両
方向でサイズがチェックされた方がよりうれしいと思います．できれ
ばメッセージバッファのサイズ対してチェック出来ると良いのではと
思います．

  自分の力では y 方向を縮めることしか出来ませんでした^^;
#image のサイズが x 方向が frame より大きければピッタリに
#収まってくれます

戸田哲也 =^^=
------
*** mew-gemacs.el.orig	Wed Aug 16 16:42:04 2006
--- mew-gemacs.el	Wed Aug 16 16:40:10 2006
***************
*** 183,188 ****
--- 183,189 ----
        width)))
  
  (defvar mew-image-width-margin 45)
+ (defvar mew-image-height-margin 200)
  
  (defvar mew-image-alist
    '((jpeg "jpegtopnm" mew-jpeg-width)
***************
*** 201,206 ****
--- 202,208 ----
    (message "Loading image...")
    (set-buffer (mew-buffer-message))
    (let* ((width (- (frame-pixel-width (selected-frame)) mew-image-width-margin))
+ 	 (height (- (frame-pixel-height (selected-frame)) mew-image-height-margin))
  	 (ent (mew-image-format-ent format))
  	 (prog (mew-image-get-prog ent))
  	 (func (mew-image-get-func ent))
***************
*** 219,225 ****
  			       t '(t nil) nil)
  	  (call-process-region (point-min) (point-max) "pnmscale"
  			       t '(t nil) nil
! 			       "-xsize" (format "%d" width))
  	  (setq format 'pbm)
  	  (setq image (mew-buffer-substring (point-min) (point-max)))
  	  (message "Resizing image...done"))
--- 221,227 ----
  			       t '(t nil) nil)
  	  (call-process-region (point-min) (point-max) "pnmscale"
  			       t '(t nil) nil
! 			       "-xysize" (format "%d" width) (format "%d" height))
  	  (setq format 'pbm)
  	  (setq image (mew-buffer-substring (point-min) (point-max)))
  	  (message "Resizing image...done"))